From 521cdfc3f64e3bb4959e445aa6e3352d0cb86b75 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 27 Jul 2020 10:41:15 +0200
Subject: Task 1 done.

---
 challenge-071/luca-ferrari/raku/ch-1.p6 | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 challenge-071/luca-ferrari/raku/ch-1.p6

diff --git a/challenge-071/luca-ferrari/raku/ch-1.p6 b/challenge-071/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..5c32e33fa5
--- /dev/null
+++ b/challenge-071/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,25 @@
+#!raku
+
+
+sub MAIN( Int $N where { $N > 1 } ) {
+    my @array;
+    my @peak;
+
+    while ( @array.elems < $N ) {
+        my $random = ( 1 .. 50 ).rand.Int;
+        @array.push: $random if ( ! @array.grep( * ~~ $random ) );
+    }
+
+
+    for 0 ..^ @array.elems {
+        my $neighbour-left  = $_ == 0 ?? Nil !! @array[ $_ - 1 ];
+        my $neighbour-right = $_ == ( @array.elems - 1 ) ?? Nil !! @array[ $_ + 1 ];
+        my $current         = @array[ $_ ];
+
+        @peak.push: $current if ( $neighbour-left && $current > $neighbour-left )
+                             || ( $neighbour-right && $current > $neighbour-right );
+    }
+
+    @array.say;
+    @peak.say;
+}
-- 
cgit