From 0bc0829b888057541d312b238cbdd7dd61e691e9 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <mail@andreyshitov.com>
Date: Mon, 11 Aug 2025 07:45:07 +0200
Subject: Week 334, Task 1, solution in Raku by @ash

---
 challenge-334/ash/raku/ch-1.raku | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 challenge-334/ash/raku/ch-1.raku

diff --git a/challenge-334/ash/raku/ch-1.raku b/challenge-334/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..c61a1ae2c1
--- /dev/null
+++ b/challenge-334/ash/raku/ch-1.raku
@@ -0,0 +1,12 @@
+# Task 1 of the Weekly Challenge 334
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-334/#TASK1
+
+say solve([-2, 0, 3, -5, 2, -1], 0, 2); # 1
+say solve([1, -2, 3, -4, 5],     1, 3); # -3
+say solve([1, 0, 2, -1, 3],      3, 4); # 2
+say solve([-5, 4, -3, 2, -1, 0], 0, 3); # -2
+say solve([-1, 0, 2, -3, -2, 1], 0, 2); # 1
+
+sub solve(@data, $beg, $end) {
+    [+] @data[$beg..$end]
+}
-- 
cgit