Merge pull request #12222 from wambash/challenge-week-326

solutions week 326

2 files changed, 35 insertions, 0 deletions

diff --git a/challenge-326/wambash/raku/ch-1.raku b/challenge-326/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..f3a433aa27
--- /dev/null
+++ b/challenge-326/wambash/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+
+sub day-of-the-year (Date() $_) {
+    .succ - .truncated-to: 'year'
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is day-of-the-year('2025-02-02'),  33;
+    is day-of-the-year('2025-04-10'), 100;
+    is day-of-the-year('2025-09-07'), 250;
+    done-testing;
+}
+
+multi MAIN (Date() $date) {
+    say day-of-the-year $date;
+}
diff --git a/challenge-326/wambash/raku/ch-2.raku b/challenge-326/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..95d9801b6f
--- /dev/null
+++ b/challenge-326/wambash/raku/ch-2.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+sub decompressed-list (+ints) {
+    ints.map: -> $t, $n { slip $n xx $t }
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is-deeply decompressed-list(1,3,2,4), (3,4,4);
+    is-deeply decompressed-list(1,1,2,2), (1,2,2);
+    is-deeply decompressed-list(3,1,3,2), (1,1,1,2,2,2);
+    done-testing;
+}
+
+multi MAIN (+ints) {
+    put decompressed-list ints;
+}