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

stmuk · stmuk · commit 6ee4669f27c4 · 2015-09-24T11:52:21.000Z
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

Original file line number	Diff line number	Diff line change
`@@ -25,10 +25,11 @@ ($input-file = Nil)`
`25`	`25`	`my ($dna, $search) = $input-file ?? $input-file.IO.lines !! @default-data;`
`26`	`26`
`27`	`27`	`my $pos = 0;`
`28`		`- say gather for $search.comb -> $c {`
	`28`	`+ my @arr = gather for $search.comb -> $c {`
`29`	`29`	`$dna ~~ m:c($pos)/$c/;`
`30`	`30`	`take $pos = $/.from + 1;`
`31`	`31`	`}`
	`32`	`+ say "{@arr}"`
`32`	`33`	`}`
`33`	`34`
`34`	`35`	`# vim: expandtab shiftwidth=4 ft=perl6`
Original file line number	Diff line number	Diff line change
`@@ -23,7 +23,8 @@`
`23`	`23`
`24`	`24`	`sub MAIN($input-file = Nil) {`
`25`	`25`	`my ($S, $t) = $input-file ?? $input-file.IO.lines !! @default-data;`
`26`		`- say gather for $S.match(/$t/, :overlap) { take 1+.from };`
	`26`	`+ my @arr = gather for $S.match(/$t/, :overlap) { take 1+.from };`
	`27`	`+ say "{@arr}"`
`27`	`28`	`}`
`28`	`29`
`29`	`30`	`# vim: expandtab shiftwidth=4 ft=perl6`