Merge pull request #10044 from andemark/challenge-268

Challenge 268 Solutions (Raku)

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 })
+}