GLR fixes

Author: stmuk

categories/99-problems/P02-topo.pl

@@ -20,6 +20,6 @@ =head1 Example
     @list[* - 2, * - 1];
 }
 
-say last-two(<a b c d e>);
+say "{last-two(<a b c d e>)}";
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P05-topo.pl

@@ -8,7 +8,7 @@
 
 =head1 Example
 
-    > say reverse-list(<a b c d e>.list);
+    > say reverse-list(<a b c d e>);
     e d c b a
 
 =end pod
@@ -18,7 +18,6 @@ =head1 Example
     @list.reverse;
 }
 
-# Make sure it's treated as a list, since <> creates a parcel.
-say reverse-list(<a b c d e>.list);
+say "{reverse-list(<a b c d e>)}";
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P11-topo.pl

@@ -9,7 +9,7 @@
 =head1 Example
 
     > say encode(<a a a a b c c a a d e e e e>.list).perl;
-    ([4, "a"], "b", [2, "c"], [2, "a"], "d", [4, "e"]).list
+    ([4, "a"], "b", [2, "c"], [2, "a"], "d", [4, "e"])
 
 =end pod
 
@@ -28,6 +28,6 @@ (@list)
     }
 }
 
-say encode(<a a a a b c c a a d e e e e>.list).perl;
+say encode([<a a a a b c c a a d e e e e>]).list.perl;
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P16-edpratomo.pl

@@ -21,6 +21,6 @@ (@ary, $n)
   gather for 1 .. @ary.elems -> $i { take @ary[$i - 1] if $i % $n }
 }
 
-drop(<A B C D E F G H I K>, 3).perl.say;
+drop(<A B C D E F G H I K>, 3).list.perl.say;
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P23-topo.pl

@@ -17,6 +17,6 @@ =head1 Example
     @list.pick($amount);
 }
 
-say get-rand-elems(<a b c d e>, 3);
+say "{get-rand-elems(<a b c d e>, 3)}";
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P24-topo.pl

@@ -21,6 +21,6 @@ =head1 Example
     }
 }
 
-say lotto-select(6, 49);
+say "{lotto-select(6, 49)}";
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P36-ovid.pl

@@ -118,7 +118,7 @@ =head1 Example
 }
 
 for 17, 53, 90, 94, 200, 289, 62710561 -> $number {
-    say "Prime factors of $number are: ", prime-factors($number).sort.perl;
+    say "Prime factors of $number are: ", prime-factors($number).perl;
 }
 
 # vim: expandtab shiftwidth=4 ft=perl6

categories/99-problems/P36-rhebus.pl

@@ -41,8 +41,8 @@ (Int $n)
     }
 }
 
-say prime_factors_mult($_).perl for 1..20;
-prime_factors_mult(315).perl.say;
-prime_factors_mult(1723).perl.say;
+say prime_factors_mult($_).list.perl for 1..20;
+prime_factors_mult(315).list.perl.say;
+prime_factors_mult(1723).list.perl.say;
 
 # vim: expandtab shiftwidth=4 ft=perl6

t/categories/99-problems.t

@@ -248,8 +248,8 @@ sub expected-output {
     END
 
     %expected-output{"P19-topo.pl"} = q:to/END/;
-    ["d", "e", "f", "g", "a", "b", "c"]<>
-    ["e", "f", "g", "a", "b", "c", "d"]<>
+    ["d", "e", "f", "g", "a", "b", "c"]
+    ["e", "f", "g", "a", "b", "c", "d"]
     END
 
     %expected-output{"P20-rhebus.pl"} = q:to/END/;
@@ -418,38 +418,38 @@ sub expected-output {
     END
 
     %expected-output{"P36-ovid.pl"} = q:to/END/;
-    Prime factors of 17 are: ("17" => 1,)
-    Prime factors of 53 are: ("53" => 1,)
+    Prime factors of 17 are: ("17" => 1)
+    Prime factors of 53 are: ("53" => 1)
     Prime factors of 90 are: ("2" => 1, "3" => 2, "5" => 1)
     Prime factors of 94 are: ("2" => 1, "47" => 1)
     Prime factors of 200 are: ("2" => 3, "5" => 2)
-    Prime factors of 289 are: ("17" => 2,)
-    Prime factors of 62710561 are: ("7919" => 2,)
+    Prime factors of 289 are: ("17" => 2)
+    Prime factors of 62710561 are: ("7919" => 2)
     END
 
     %expected-output{"P36-rhebus.pl"} = q:to/END/;
     ()
-    (2 => 1,)
-    (3 => 1,)
-    (2 => 2,)
-    (5 => 1,)
+    (2 => 1)
+    (3 => 1)
+    (2 => 2)
+    (5 => 1)
     (2 => 1, 3 => 1)
-    (7 => 1,)
-    (2 => 3,)
-    (3 => 2,)
+    (7 => 1)
+    (2 => 3)
+    (3 => 2)
     (2 => 1, 5 => 1)
-    (11 => 1,)
+    (11 => 1)
     (2 => 2, 3 => 1)
-    (13 => 1,)
+    (13 => 1)
     (2 => 1, 7 => 1)
     (3 => 1, 5 => 1)
-    (2 => 4,)
-    (17 => 1,)
+    (2 => 4)
+    (17 => 1)
     (2 => 1, 3 => 2)
-    (19 => 1,)
+    (19 => 1)
     (2 => 2, 5 => 1)
     (3 => 2, 5 => 1, 7 => 1)
-    (1723 => 1,)
+    (1723 => 1)
     END
 
     %expected-output{"P37-rhebus.pl"} = q:to/END/;