From 971871ae42335f2ac67b12afd900bf6020a43e54 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Mon, 23 Jun 2025 07:14:31 +0200
Subject: solutions week 326

---
 challenge-326/wambash/raku/ch-1.raku | 18 ++++++++++++++++++
 challenge-326/wambash/raku/ch-2.raku | 17 +++++++++++++++++
 2 files changed, 35 insertions(+)
 create mode 100644 challenge-326/wambash/raku/ch-1.raku
 create mode 100644 challenge-326/wambash/raku/ch-2.raku

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;
+}
-- 
cgit