From ae6ac9d417b38f8bcc9cf150e7a5eb2ec7ce43f0 Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zoopla.co.uk>
Date: Mon, 27 Jul 2020 09:00:39 +0100
Subject: Peaks challenge

---
 challenge-071/simon-proctor/raku/ch-1.raku | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 challenge-071/simon-proctor/raku/ch-1.raku

diff --git a/challenge-071/simon-proctor/raku/ch-1.raku b/challenge-071/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..af23f3ea3b
--- /dev/null
+++ b/challenge-071/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+
+use v6;
+
+# Generate a list of random numbers then find the picks
+sub MAIN(
+    UInt $N where 1 < * <= 50 #= Size of random number list
+) {
+    my @list = (1..50).pick($N);
+    my @peaks = ( 0, |@list, |0 ).rotor(3 => -2).grep( { $_[0] < $_[1] > $_[2] } ).map( { $_[1] } );
+    say "List  : {@list.join(',')}";
+    say "Peaks : {@peaks.join(',')}";
+
+}
-- 
cgit