diff options
| -rw-r--r-- | challenge-268/mark-anderson/raku/ch-1.raku | 14 | ||||
| -rw-r--r-- | challenge-268/mark-anderson/raku/ch-2.raku | 11 |
2 files changed, 25 insertions, 0 deletions
diff --git a/challenge-268/mark-anderson/raku/ch-1.raku b/challenge-268/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..0a58e04669 --- /dev/null +++ b/challenge-268/mark-anderson/raku/ch-1.raku @@ -0,0 +1,14 @@ +#!/usr/bin/env +use Test; + +is magic-number((3,7,5), (9,5,7)), 2; +is magic-number((1,2,1), (5,4,4)), 3; +is magic-number((2,), (5,)), 3; +nok magic-number((3,7,5), (9,6,7)); + +sub magic-number(@x, @y) +{ + my @r = @y.sort >>-<< @x.sort; + return .head if .elems == 1 given @r.squish; + return False +} diff --git a/challenge-268/mark-anderson/raku/ch-2.raku b/challenge-268/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..f85cc2b98c --- /dev/null +++ b/challenge-268/mark-anderson/raku/ch-2.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku +use Test; + +is-deeply number-game(2,5,3,4), (3,2,5,4); +is-deeply number-game(9,4,1,3,6,4,6,1), (1,1,4,3,6,4,9,6); +is-deeply number-game(1,2,2,3), (2,1,3,2); + +sub number-game(*@ints) +{ + flat @ints.sort.map({ $^b, $^a }) +} |