diff options
| -rw-r--r-- | challenge-101/mark-anderson/raku/ch-1.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-101/mark-anderson/raku/ch-1.raku b/challenge-101/mark-anderson/raku/ch-1.raku index 69d0f1d789..a83ad343c5 100644 --- a/challenge-101/mark-anderson/raku/ch-1.raku +++ b/challenge-101/mark-anderson/raku/ch-1.raku @@ -39,8 +39,8 @@ is-deeply pack-a-spiral(1..144), sub pack-a-spiral(@list is copy) { - my $factor = .tail given gather take +@list div $_ if +@list %% $_ - for 1..sqrt(+@list); + my $factor = .tail given map { if +@list %% $_ { +@list div $_ }}, + 1..sqrt(+@list); my @matrix = @list.keys.rotor($factor).map(*.Array); my @keys; |