Merge pull request #12187 from andemark/challenge-326

Challenge 326 Solutions (Raku)

2 files changed, 28 insertions, 0 deletions

diff --git a/challenge-326/mark-anderson/raku/ch-1.raku b/challenge-326/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..19205ecdad
--- /dev/null
+++ b/challenge-326/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+use Test;
+
+is '2025-02-02'.Date.my-day-of-year, '2025-02-02'.Date.day-of-year; # 33
+is '2025-04-10'.Date.my-day-of-year, '2025-04-10'.Date.day-of-year; # 100
+is '2025-09-07'.Date.my-day-of-year, '2025-09-07'.Date.day-of-year; # 250
+
+class Date::my-day-of-year
+{
+    use MONKEY-TYPING;
+
+    augment class Date
+    {
+        method my-day-of-year
+        {
+            given self
+            {
+                $_ - "{.year}-01-01".Date + 1
+            }
+        }
+    }
+}
diff --git a/challenge-326/mark-anderson/raku/ch-2.raku b/challenge-326/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..886a599291
--- /dev/null
+++ b/challenge-326/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,6 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply (1,3,2,4).map({ $^b xx $^a }).flat, (3,4,4);
+is-deeply (1,1,2,2).map({ $^b xx $^a }).flat, (1,2,2);
+is-deeply (3,1,3,2).map({ $^b xx $^a }).flat, (1,1,1,2,2,2);