Merge pull request #1990 from andemark/branch-for-challenge-071

Peaks Solution

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-071/mark-anderson/raku/ch-1.raku b/challenge-071/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..e255aecde1
--- /dev/null
+++ b/challenge-071/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku 
+
+unit sub MAIN(UInt $N where 1 < $N <= 50);
+
+my @array = (1..50).pick($N);
+
+my $regex = / [^|\s] (\d+) \s (\d+) \s (\d+) [\s|$] <?{ $0 < $1 > $2 }> /;
+
+my @peaks = gather {
+    take @array[0] if @array[0] > @array[1];
+
+    take ~.[1] for @array.join(" ").match($regex, :overlap);
+
+    take @array[*-1] if @array[*-1] > @array[*-2];
+}
+
+say "Array: ", @array, "\n";
+
+say "Peaks: ", @peaks;