Task 1 done.

1 files changed, 25 insertions, 0 deletions

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;
+}