GLR fixes such that prob009-gerdr-feeds.pl, sseq-grondilu.pl and subs…

…-grondilu.pl pass
Raku · Sep 24, 2015 · 6ee4669 · 6ee4669
1 parent 07cf4eb
commit 6ee4669
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/categories/euler/prob009-gerdr-feeds.pl b/categories/euler/prob009-gerdr-feeds.pl
@@ -43,6 +43,6 @@
 ==> $result;
 
 # print result
-$result.say;
+$result.[0].say;
 
 # vim: expandtab shiftwidth=4 ft=perl6
diff --git a/categories/rosalind/sseq-grondilu.pl b/categories/rosalind/sseq-grondilu.pl
@@ -25,10 +25,11 @@ ($input-file = Nil)
     my ($dna, $search) = $input-file ?? $input-file.IO.lines !! @default-data;
 
     my $pos = 0;
-    say gather for $search.comb -> $c {
+    my @arr = gather for $search.comb -> $c {
         $dna ~~ m:c($pos)/$c/;
         take $pos = $/.from + 1;
     }
+    say "{@arr}"
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6
diff --git a/categories/rosalind/subs-grondilu.pl b/categories/rosalind/subs-grondilu.pl
@@ -23,7 +23,8 @@
 
 sub MAIN($input-file = Nil) {
     my ($S, $t) = $input-file ?? $input-file.IO.lines !! @default-data;
-    say gather for $S.match(/$t/, :overlap) { take 1+.from };
+    my @arr = gather for $S.match(/$t/, :overlap) { take 1+.from };
+    say "{@arr}"
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6