From 7adf91401803cfd07f0d055c0b3dd0c94649542e Mon Sep 17 00:00:00 2001
From: Andrew Shitov <mail@andreyshitov.com>
Date: Mon, 9 Jun 2025 11:52:03 +0200
Subject: Solutions Week 325 by @ash in Raku

---
 challenge-325/ash/raku/ch-1.raku | 17 +++++++++++++++++
 challenge-325/ash/raku/ch-2.raku | 13 +++++++++++++
 2 files changed, 30 insertions(+)
 create mode 100644 challenge-325/ash/raku/ch-1.raku
 create mode 100644 challenge-325/ash/raku/ch-2.raku

diff --git a/challenge-325/ash/raku/ch-1.raku b/challenge-325/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..bb4870b7ad
--- /dev/null
+++ b/challenge-325/ash/raku/ch-1.raku
@@ -0,0 +1,17 @@
+
+# Task 1 of the Weekly Challenge 325
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-325
+
+say solve 0, 1, 1, 0, 1, 1, 1; # 3
+say solve 0, 0, 0, 0;          # 0
+say solve 1, 0, 1, 0, 1, 1;    # 2
+
+
+sub solve(*@data) {
+    (
+        (
+            @data.join ~~ m:g/(1+)/
+        )>>.chars
+        || 0
+    ).max
+}
diff --git a/challenge-325/ash/raku/ch-2.raku b/challenge-325/ash/raku/ch-2.raku
new file mode 100644
index 0000000000..c3cb4d9ee8
--- /dev/null
+++ b/challenge-325/ash/raku/ch-2.raku
@@ -0,0 +1,13 @@
+
+# Task 2 of the Weekly Challenge 325
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-325
+
+say solve 8, 4, 6, 2, 3; # 4, 2, 4, 2, 3
+say solve 1, 2, 3, 4, 5; # 1, 2, 3, 4, 5
+say solve 7, 1, 1, 5;    # 6, 0, 1, 5
+
+sub solve(*@data) {
+    @data.kv.map: -> $index, $price {
+        $price - ((@data[$index + 1 .. *].first: * <= $price) // 0);
+    }
+}
-- 
cgit