diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-03-30 03:22:41 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-03-30 03:22:41 +0000 |
| commit | 3f5ab2869a233c6a7d8ed735e8f02fce98eb4a97 (patch) | |
| tree | f1eca7e7ce90b19c4e39bf92019ad215f62d6a61 | |
| parent | b2dfb7b808da55dc14547983620145cc3870e58c (diff) | |
| download | perlweeklychallenge-club-3f5ab2869a233c6a7d8ed735e8f02fce98eb4a97.tar.gz perlweeklychallenge-club-3f5ab2869a233c6a7d8ed735e8f02fce98eb4a97.tar.bz2 perlweeklychallenge-club-3f5ab2869a233c6a7d8ed735e8f02fce98eb4a97.zip | |
Challenge 210 Solutions (Raku)
| -rw-r--r-- | challenge-210/mark-anderson/raku/ch-1.raku | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/challenge-210/mark-anderson/raku/ch-1.raku b/challenge-210/mark-anderson/raku/ch-1.raku index 91afd13e39..fcfc3cb080 100644 --- a/challenge-210/mark-anderson/raku/ch-1.raku +++ b/challenge-210/mark-anderson/raku/ch-1.raku @@ -17,16 +17,16 @@ 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 multi kill-and-win(*@ints) { my $b = @ints.BagHash andthen .add((@ints.min-2, @ints.max+2)); - get-total($b) + total($b) } multi kill-and-win(BagHash $b) { $b.add(($b.min.key-2, $b.max.key+2)); - get-total($b) + total($b) } -sub get-total($b) +multi total($b) { $b.sort(*.key) .rotor(3 => -2) @@ -34,7 +34,7 @@ sub get-total($b) .max } -sub total(@a) +multi total(@a) { my @slice = .[0] == .[1]-1 == .[2]-2 ?? (0,1,2) !! .[0] == .[1]-1 ?? (0,1) !! |