From 5062b75e8b1cd965b5f6f80f4edac8b6e4121cf1 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 19 Dec 2022 09:49:35 +0100
Subject: Task 1 done

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

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