diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-23 07:12:48 -0700 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-23 07:12:48 -0700 |
| commit | 0507f492e32374cb2555400c49461673ead24cb3 (patch) | |
| tree | 2ad9e4d51b6d128d9a9847c72f0fc3a21bf86523 /challenge-101 | |
| parent | 5cbc7ad272eef877ff208d79d911497774cac897 (diff) | |
| download | perlweeklychallenge-club-0507f492e32374cb2555400c49461673ead24cb3.tar.gz perlweeklychallenge-club-0507f492e32374cb2555400c49461673ead24cb3.tar.bz2 perlweeklychallenge-club-0507f492e32374cb2555400c49461673ead24cb3.zip | |
Challenge 101 Solutions (Raku)
Diffstat (limited to 'challenge-101')
| -rw-r--r-- | challenge-101/mark-anderson/raku/ch-1.raku | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-101/mark-anderson/raku/ch-1.raku b/challenge-101/mark-anderson/raku/ch-1.raku index 678437052d..3184ca7f2c 100644 --- a/challenge-101/mark-anderson/raku/ch-1.raku +++ b/challenge-101/mark-anderson/raku/ch-1.raku @@ -58,10 +58,10 @@ sub pack-a-spiral(@list is copy) while @matrix { - @keys.append: @matrix.pop.flat; - try @keys.push: @matrix[$_].pop for @matrix.end...0; - try @keys.push: |@matrix.shift.reverse; - try @keys.push: @matrix[$_].shift for ^@matrix; + @keys.append: @matrix.pop.flat; + try @keys.push: @matrix[$_].pop for @matrix.end...0; + try @keys.append: @matrix.shift.flat.reverse; + try @keys.push: @matrix[$_].shift for ^@matrix; } @list[@keys] = @list; |