[99probs] GLR fix P17-topo.pl

Raku · Sep 16, 2015 · c29c3b4 · c29c3b4
1 parent bcc9506
commit c29c3b4
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/categories/99-problems/P17-topo.pl b/categories/99-problems/P17-topo.pl
@@ -13,19 +13,18 @@ =head1 Example
 
 =end pod
 
-sub split-list(@list, $length)
-{
+sub split-list(@list, $length) {
     my $i = 0;
 
     gather while $i <= $length {
         take [ gather while $i <= $length {
-            $i++ and take @list.[0];
+            $i++ and take @list.shift;
         } ];
 
         take [ @list ];
     }
 }
 
-say split-list(('a' xx 20).list, 8).list.perl;
+say split-list(['a' xx 20], 8).list.perl;
 
 # vim: expandtab shiftwidth=4 ft=perl6