more GLR fixes

Author: stmuk

categories/99-problems/P07-viklund.pl

@@ -45,6 +45,6 @@ (@t)
 
 sub splat (@t) { gather _splat(@t) }
 
-splat([1, [2,[3,4], 5]]).perl.say;
+splat([1, [2,[3,4], 5]]).list.perl.say;
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P13-rhebus.pl

@@ -38,6 +38,6 @@ (@a)
 my @l = <a a a a b c c a a d e e e e>;
 
 say ~@l;
-runlength(@l).perl.say;
+runlength(@l).list.perl.say;
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P21-topo.pl

@@ -20,6 +20,6 @@ =head1 Example
     @list
 }
 
-say insert-at('alfa', <a b c d>, 2);
+say "{insert-at('alfa', <a b c d>, 2)}";
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/best-of-rosettacode/prime-decomposition.pl

@@ -46,6 +46,6 @@ (Int $remainder is copy)
     }
 }
 
-say factors 536870911;
+say "{factors 536870911}";
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/euler/prob018-felher.pl

@@ -66,7 +66,7 @@
 
 # reduce the triangle by adding up the lines until only one line with one
 # element is left; then print it.
-say @lines.reduce: &add-maxima;
+say "{@lines.reduce: &add-maxima}";
 
 # this function assumes the shorter and longer array to be consecutive lines
 # in an reversed triangle. It then adds each of the maxima of consecutive fields

categories/euler/prob067-felher.pl

@@ -36,7 +36,7 @@
 
 # reduce the triangle by adding up the lines until only one line with one
 # element is left; then print it.
-say @lines.reduce: &add-maxima;
+say "{@lines.reduce: &add-maxima}";
 
 # this function assumes the shorter and longer array to be consecutive lines
 # in an reversed triangle. It then adds each of the maxima of consecutive fields

categories/rosalind/dna-gerdr.pl

@@ -21,7 +21,7 @@
 my $default-input = "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC";
 
 sub MAIN($input = $default-input) {
-    <A C G T>.map({ +$input.comb(/$_/) }).say;
+    "{<A C G T>.map({ +$input.comb(/$_/) })}".say;
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/rosalind/dna-grondilu.pl

@@ -21,7 +21,7 @@
 my $default-input = "AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC";
 
 sub MAIN(Str $input = $default-input) {
-    say bag($input.comb)<A C G T>;
+    say "{bag($input.comb)<A C G T>}";
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/rosalind/prob-grondilu.pl

@@ -27,7 +27,7 @@ ($input-file = Nil)
     my @A = $gc-content-string.split(" ");
     my @B = map { log(prob :$dna, :gc-content($_))/log(10) }, @A;
 
-    say @B».fmt: "%.3f";
+    say "{@B».fmt: "%.3f"}";
 }
 
 sub prob(:$dna, :$gc-content) {

categories/rosalind/sexl-grondilu.pl

@@ -19,7 +19,7 @@
 =end pod
 
 sub MAIN(Str $input = "0.1 0.5 0.8") {
-    say map { 2*$^x*(1-$x) }, $input.split(' ')».Num;
+    say "{map { 2*$^x*(1-$x) }, $input.split(' ')».Num}";
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6