Merge pull request #12422 from andemark/challenge-332

Challenge 332 Solutions (Raku)

2 files changed, 22 insertions, 0 deletions

diff --git a/challenge-332/mark-anderson/raku/ch-1.raku b/challenge-332/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..cb06bd6bb2
--- /dev/null
+++ b/challenge-332/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+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";
+
+sub binary-date($date)
+{
+    $date.split("-").fmt("%b", "-")
+}
diff --git a/challenge-332/mark-anderson/raku/ch-2.raku b/challenge-332/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..160c11dba1
--- /dev/null
+++ b/challenge-332/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+nok odd-letters("weekly");
+ok  odd-letters("perl");
+nok odd-letters("challenge");
+
+sub odd-letters($str)
+{
+    so $str.comb.Bag.values.all.ends-with(any 1,3,5,7,9)   
+}