Merge pull request #12498 from ash/ash-334

Week 334, Task 1, solution in Raku by @ash

1 files changed, 12 insertions, 0 deletions

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]
+}