diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-23 10:10:39 -0700 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-23 10:10:39 -0700 |
| commit | c975ab6446e1bc054d3ccdc4a3a4cdbdb9f5078a (patch) | |
| tree | 219b7e9ffd5d26e469665e1da4da3b6aa55b7b8f /challenge-101 | |
| parent | 6c987c49ef7eff0b96fa1b8cab1628e120ab923f (diff) | |
| download | perlweeklychallenge-club-c975ab6446e1bc054d3ccdc4a3a4cdbdb9f5078a.tar.gz perlweeklychallenge-club-c975ab6446e1bc054d3ccdc4a3a4cdbdb9f5078a.tar.bz2 perlweeklychallenge-club-c975ab6446e1bc054d3ccdc4a3a4cdbdb9f5078a.zip | |
Challenge 101 Solutions (Raku)
Diffstat (limited to 'challenge-101')
| -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; |