solutions week 130

2 files changed, 32 insertions, 0 deletions

diff --git a/challenge-130/wambash/raku/ch-1.raku b/challenge-130/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..9bec043af5
--- /dev/null
+++ b/challenge-130/wambash/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub odd-number (+@n) {
+    @n
+    andthen .Bag
+    andthen .first: *.value !%% 2
+    andthen .key
+}
+
+multi MAIN (*@n) {
+    say odd-number @n
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is odd-number(2, 5, 4, 4, 5, 5, 2), 5;
+    is odd-number(1, 2, 3, 4, 3, 2, 1, 4, 4), 4;
+    done-testing;
+}
diff --git a/challenge-130/wambash/raku/ch-2.raku b/challenge-130/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..c14a4ccca9
--- /dev/null
+++ b/challenge-130/wambash/raku/ch-2.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+
+sub binary-search-tree (*@t) {
+    [before] @t
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is binary-search-tree((4,5,6),8,9), True;
+    is binary-search-tree((3,4,6),5,7), False;
+    is binary-search-tree(('A','B',('C','D','E')),'F','G'), True;
+    done-testing;
+}