Task 1 Week 345 in Raku by @ash

1 files changed, 13 insertions, 0 deletions

diff --git a/challenge-345/ash/raku/ch-1.raku b/challenge-345/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..bc53c65653
--- /dev/null
+++ b/challenge-345/ash/raku/ch-1.raku
@@ -0,0 +1,13 @@
+# Task 1 of the Weekly Challenge 345
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-345/#TASK1
+
+say peaks 1, 3, 2; # 1
+say peaks 2, 4, 6, 5, 3; # 2
+say peaks 1, 2, 3, 2, 4, 1; # 2 4
+say peaks 5, 3, 1; # 0
+say peaks 1, 5, 1, 5, 1, 5, 1; # 1 3 5
+
+sub peaks(*@data) {
+    my @indices = 1 .. (@data.elems - 2);
+    return (@indices.grep: {@data[$_ - 1] < @data[$_] > @data[$_ + 1]}) || (0,);
+}