From 3f5ab2869a233c6a7d8ed735e8f02fce98eb4a97 Mon Sep 17 00:00:00 2001 From: Mark <53903062+andemark@users.noreply.github.com> Date: Thu, 30 Mar 2023 03:22:41 +0000 Subject: Challenge 210 Solutions (Raku) --- challenge-210/mark-anderson/raku/ch-1.raku | 8 ++++---- 1 file 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) !! -- cgit