diff options
| -rw-r--r-- | challenge-210/mark-anderson/raku/ch-1.raku | 44 |
1 files changed, 5 insertions, 39 deletions
diff --git a/challenge-210/mark-anderson/raku/ch-1.raku b/challenge-210/mark-anderson/raku/ch-1.raku index c8cf650faf..bbecba6e17 100644 --- a/challenge-210/mark-anderson/raku/ch-1.raku +++ b/challenge-210/mark-anderson/raku/ch-1.raku @@ -1,46 +1,12 @@ #!/usr/bin/env raku use Test; -say kill-and-win((1..100).hyper.roll(1_000_000)); # takes about 4 seconds +# Ignore my earlier solution - I totally misunderstood the problem. 🤦 -say kill-and-win((1..100).hyper.roll(1_000_000).BagHash); # takes about 0.8 seconds +is kill-and-win(2,3,1), 6; +is kill-and-win(1,1,2,2,2,3), 11; -is kill-and-win(2,3,1), 6; # choosing 2 -is kill-and-win(1,1,2,2,2,3), 11; # choosing 2 -is kill-and-win(1,1,3,3,5,5), 10; # choosing 5 -is kill-and-win(4,4,4,4,7,8), 16; # choosing 4 -is kill-and-win(4,4,4,4,7,7,8), 22; # choosing 7 -is kill-and-win(8,6,3,3,8,1,9,3,1,4,5,2,5,4,5,4,7,3,3,5), 47; # choosing 4 -is kill-and-win(2,6,1,1,6,5,6,3,4,9,8,3,3,2,3,2,3,3,7,9), 33; # choosing 7 or 8 -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)); - total($b) -} - -multi kill-and-win(BagHash $b) +sub kill-and-win(*@ints) { - $b.add(($b.min.key-2, $b.max.key+2)); - total($b) -} - -multi total(BagHash $b) -{ - $b.sort(*.key) - .rotor(3 => -2) - .map(&total) - .max -} - -multi total(@a) -{ - my @slice = .[0] == .[1]-1 == .[2]-2 ?? (0,1,2) !! - .[0] == .[1]-1 ?? (0,1) !! - .[1] == .[2]-1 ?? (1,2) !! - (1) - given @a.Map.keys.sort(+*); - - [+] .keys Z* .values given @a[@slice].Map + sum @ints } |