From 82d07e235c3514db06ed58f44eb9f7180546a0ed Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Mon, 27 Jul 2020 05:38:25 -0600
Subject: Peaks Solution

---
 challenge-071/mark-anderson/raku/ch-1.raku | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 challenge-071/mark-anderson/raku/ch-1.raku

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;
-- 
cgit