Task 1 done

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-196/luca-ferrari/raku/ch-1.p6 b/challenge-196/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..d416479573
--- /dev/null
+++ b/challenge-196/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,15 @@
+#!raku
+
+# Perl Weekly Challenge 196
+
+sub MAIN( *@list where { @list.grep( * ~~ Int ).elems == @list.elems } )  {
+    my @found;
+    my $last = 0;
+
+    for @list.rotor( 3, :partial ) -> $triplet {
+	next if $triplet.elems != 3;
+	@found.push: $triplet if ( $triplet[ 0 ] < $triplet[ 1 ] < $triplet[ 2 ] );
+    }
+
+    @found.join( "\n" ).say;
+}