Task 1 done

1 files changed, 16 insertions, 0 deletions

diff --git a/challenge-111/luca-ferrari/raku/ch1.p6 b/challenge-111/luca-ferrari/raku/ch1.p6
new file mode 100644
index 0000000000..565aeee6e9
--- /dev/null
+++ b/challenge-111/luca-ferrari/raku/ch1.p6
@@ -0,0 +1,16 @@
+#!raku
+
+
+sub MAIN( Int $needle = 39 ) {
+    my @matrix = [  1,  2,  3,  5,  7 ]
+                 , [  9, 11, 15, 19, 20 ]
+                 , [ 23, 24, 25, 29, 31 ]
+                 , [ 32, 33, 39, 40, 42 ]
+                 , [ 45, 47, 48, 49, 50 ];
+
+    "1".say and exit  if $_[ 0 ] <= $needle
+                         && $_[ *-1 ] >= $needle
+                         && $_.grep: $needle for @matrix;
+
+    "0".say;
+}