diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-03-27 18:49:19 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-03-27 18:49:19 +0000 |
| commit | bbd881b07636d6d00920ad5a745807d59b85ef26 (patch) | |
| tree | 8f8de7082b6f0ce73d3b9022c118a9f19d2fdfdf | |
| parent | 5131272f93bab607256e10d1434dedf1c6941904 (diff) | |
| download | perlweeklychallenge-club-bbd881b07636d6d00920ad5a745807d59b85ef26.tar.gz perlweeklychallenge-club-bbd881b07636d6d00920ad5a745807d59b85ef26.tar.bz2 perlweeklychallenge-club-bbd881b07636d6d00920ad5a745807d59b85ef26.zip | |
Challenge 210 Solutions (Raku)
| -rw-r--r-- | challenge-210/mark-anderson/raku/ch-1.raku | 13 | ||||
| -rw-r--r-- | challenge-210/mark-anderson/raku/ch-2.raku | 25 |
2 files changed, 14 insertions, 24 deletions
diff --git a/challenge-210/mark-anderson/raku/ch-1.raku b/challenge-210/mark-anderson/raku/ch-1.raku index 7b60d4b866..fb41312ce6 100644 --- a/challenge-210/mark-anderson/raku/ch-1.raku +++ b/challenge-210/mark-anderson/raku/ch-1.raku @@ -12,13 +12,12 @@ is kill-and-win(6,4,5,4,1,3,2,9,2,4,7,1,1,9,8,2,2,2,4,4), 33; # choosing 3 or 8 sub kill-and-win(*@ints) { - my @a = (sort .keys Z=> (.keys Z* .values) given @ints.Bag) - .Array - .push(@ints.max.succ => 0) - .unshift(@ints.min.pred => 0) - .rotor(3 => -2); - - @a.map(&total).max + (sort .keys Z=> (.keys Z* .values) given @ints.Bag) + .Array + .push(@ints.max.succ => 0) + .unshift(@ints.min.pred => 0) + .rotor(3 => -2) + .map(&total).max } sub total(@a) diff --git a/challenge-210/mark-anderson/raku/ch-2.raku b/challenge-210/mark-anderson/raku/ch-2.raku index 5a8fcdb255..ada0b9ed31 100644 --- a/challenge-210/mark-anderson/raku/ch-2.raku +++ b/challenge-210/mark-anderson/raku/ch-2.raku @@ -1,23 +1,14 @@ #!/usr/bin/env raku use Test; -is-deeply number-collisions(-2,-1,-3,1,2,3), - (-2,-1,-3,1,2,3); - -is-deeply number-collisions(1,2,3,-3,-1), - (1,2); - -is-deeply number-collisions(-2,4,5,-3,-1,9,-8), - (-2,4,5,9); - -is-deeply number-collisions(12,43,-76,-8,88,-88,-19,11,2,-1,0,-99), - (-76,-8,-19,-99); - -is-deeply number-collisions(99,12,43,-76,-8,88,-88,-19,11,2,-1,0,-99), - (); - -is-deeply number-collisions(12,43,-76,-8,88,-88,-19,11,2,-1,0), - (-76,-8,-19,11,2,0); +is-deeply number-collisions(2,3,-1), (2,3); +is-deeply number-collisions(3,2,-4), (-4,); +is-deeply number-collisions(-2,-1,-3,1,2,3), (-2,-1,-3,1,2,3); +is-deeply number-collisions(1,2,3,-3,-1), (1,2); +is-deeply number-collisions(-2,4,5,-3,-1,9,-8), (-2,4,5,9); +is-deeply number-collisions(12,43,-76,-8,88,-88,-19,11,2,-1,0,-99), (-76,-8,-19,-99); +is-deeply number-collisions(99,12,43,-76,-8,88,-88,-19,11,2,-1,0,-99), (); +is-deeply number-collisions(12,43,-76,-8,88,-88,-19,11,2,-1,0), (-76,-8,-19,11,2,0); sub number-collisions(*@a) { |