diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-03-28 09:14:27 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-03-28 09:14:27 +0000 |
| commit | 3d7bbc4e0944e42647fb35792b61ea7e243c53ae (patch) | |
| tree | 39fd3f7b64b77655bfa0c3c8f179960bd80b9002 | |
| parent | e8aa7d95e068054b568f60a5828f1a17d54f751e (diff) | |
| download | perlweeklychallenge-club-3d7bbc4e0944e42647fb35792b61ea7e243c53ae.tar.gz perlweeklychallenge-club-3d7bbc4e0944e42647fb35792b61ea7e243c53ae.tar.bz2 perlweeklychallenge-club-3d7bbc4e0944e42647fb35792b61ea7e243c53ae.zip | |
Challenge 210 Solutions (Raku)
| -rw-r--r-- | challenge-210/mark-anderson/raku/ch-1.raku | 2 | ||||
| -rw-r--r-- | challenge-210/mark-anderson/raku/ch-2.raku | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/challenge-210/mark-anderson/raku/ch-1.raku b/challenge-210/mark-anderson/raku/ch-1.raku index 911c1f540e..4b229c0fb2 100644 --- a/challenge-210/mark-anderson/raku/ch-1.raku +++ b/challenge-210/mark-anderson/raku/ch-1.raku @@ -1,6 +1,8 @@ #!/usr/bin/env raku use Test; +say kill-and-win((1..100).roll(1_000_000)); # takes about 5 seconds + 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 diff --git a/challenge-210/mark-anderson/raku/ch-2.raku b/challenge-210/mark-anderson/raku/ch-2.raku index ada0b9ed31..8a150dcd56 100644 --- a/challenge-210/mark-anderson/raku/ch-2.raku +++ b/challenge-210/mark-anderson/raku/ch-2.raku @@ -1,6 +1,8 @@ #!/usr/bin/env raku use Test; +# I'm treating 0 as a positive number + 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); |