solutions week 268

2 files changed, 36 insertions, 0 deletions

diff --git a/challenge-268/wambash/raku/ch-1.raku b/challenge-268/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..c6c3853eff
--- /dev/null
+++ b/challenge-268/wambash/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+sub magic-number (@x, @y) {
+    @y.min - @x.min
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is magic-number((3,7,5),(5,9,7)),2;
+    is magic-number((1,2,1),(5,4,4)),3;
+    is magic-number((2,),(5,)),3;
+    done-testing;
+}
+
+multi MAIN ($x, $y) {
+    say magic-number $x.comb(/'-'? \d+/), $y.comb(/'-'? \d+/)
+}
diff --git a/challenge-268/wambash/raku/ch-2.raku b/challenge-268/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..bef16ced5d
--- /dev/null
+++ b/challenge-268/wambash/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub number-game (+ints) {
+    ints
+    andthen .sort
+    andthen .map: {slip $^b, $^a}
+}
+
+multi MAIN (Bool :test($)!) {
+    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);
+    done-testing;
+}
+
+multi MAIN (+ints) {
+    put number-game ints
+}