Merge pull request #12456 from wambash/challenge-week-332

solutions week 332

2 files changed, 39 insertions, 0 deletions

diff --git a/challenge-332/wambash/raku/ch-1.raku b/challenge-332/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..4770c8ab7b
--- /dev/null
+++ b/challenge-332/wambash/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub binary-date ($date) {
+    $date
+    andthen .subst: /\d+/, {.Int.base: 2 }, :g
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is binary-date('2025-07-26'), '11111101001-111-11010';
+    is binary-date('2000-02-02'), '11111010000-10-10';
+    is binary-date('2024-12-31'), '11111101000-1100-11111';
+    done-testing;
+}
+
+multi MAIN ($date) {
+    say binary-date $date;
+}
diff --git a/challenge-332/wambash/raku/ch-2.raku b/challenge-332/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..d4f77d9173
--- /dev/null
+++ b/challenge-332/wambash/raku/ch-2.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env raku
+
+sub odd-letters ($str) {
+    $str
+    andthen .comb
+    andthen .Bag
+    andthen .values
+    andthen so .none %% 2
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is odd-letters('weekly'), False;
+    is odd-letters('perl'), True;
+    is odd-letters('challenge'), False;
+    done-testing;
+}
+
+multi MAIN ($str) {
+    say odd-letters $str;
+}