[99probs] fix P09-topo post GLR

Raku · Sep 16, 2015 · 954185f · 954185f
1 parent c29c3b4
commit 954185f
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/categories/99-problems/P09-topo.pl b/categories/99-problems/P09-topo.pl
@@ -23,12 +23,12 @@ =head1 Example
             gather while @list.elems
                    and @list[0] ~~ $last
             {
-                take ($last = shift @list)
+                take ($last = @list.shift)
             }
         ]
-    }
+    }.list
 }
 
-say pack-consecutive-dups([<a a a a a b b c b d e e>]).list.perl;
+say pack-consecutive-dups([<a a a a a b b c b d e e>]).perl;
 
 # vim: expandtab shiftwidth=4 ft=perl6