diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-23 02:03:24 -0700 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-02-23 02:03:24 -0700 |
| commit | 86f0142ea304b2bd590ed4a1d589c61ec5ce3457 (patch) | |
| tree | f0b15c21864d0092ac1f8a7c40a807ae53dd2f42 /challenge-101 | |
| parent | a072662aae1b2b666c9f1094c05685310435cb82 (diff) | |
| download | perlweeklychallenge-club-86f0142ea304b2bd590ed4a1d589c61ec5ce3457.tar.gz perlweeklychallenge-club-86f0142ea304b2bd590ed4a1d589c61ec5ce3457.tar.bz2 perlweeklychallenge-club-86f0142ea304b2bd590ed4a1d589c61ec5ce3457.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 b019859943..5f203c95ea 100644 --- a/challenge-101/mark-anderson/raku/ch-1.raku +++ b/challenge-101/mark-anderson/raku/ch-1.raku @@ -39,10 +39,10 @@ is-deeply pack-a-spiral(1..144), sub pack-a-spiral(@list is copy) { - my @f = grep { +@list %% $_ }, 2..+@list div 2; - my $f = @f[+@f div 2] // +@list; + my @factors = grep { +@list %% $_ }, 2..+@list div 2; + my $factor = @factors[+@factors div 2] // +@list; - my @matrix = @list.keys.rotor($f).map(*.Array); + my @matrix = @list.keys.rotor($factor).map(*.Array); my @keys; while @matrix @@ -54,5 +54,5 @@ sub pack-a-spiral(@list is copy) } @list[@keys] = @list; - @list.rotor($f); + @list.rotor($factor); } |