diff options
| -rw-r--r-- | challenge-088/mark-anderson/raku/ch-2.p6 | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/challenge-088/mark-anderson/raku/ch-2.p6 b/challenge-088/mark-anderson/raku/ch-2.p6 index 0c98107dd0..000716f7a2 100644 --- a/challenge-088/mark-anderson/raku/ch-2.p6 +++ b/challenge-088/mark-anderson/raku/ch-2.p6 @@ -33,14 +33,12 @@ sub spiral(@step1) { my @step4 = ([Z] @step3).reverse; my @trips = [Z] @step1, @step2, @step3, @step4; my $elems = @step1.elems * @step1[0].elems; - my $c = 0; my @result; - for @trips -> @t { + for @trips.kv -> $k, @t { for @t -> @step { - @result.push: @step[$c..*-$c-2]; + @result.push: @step[$k..*-$k-2]; } - $c++; } @result = (@result>>.Array).flat[^$elems]; |