From 252b0cfd863251d371dc4c758317b9c244248639 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 3 May 2021 11:06:57 +0200 Subject: Task 1 done --- challenge-111/luca-ferrari/raku/ch1.p6 | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 challenge-111/luca-ferrari/raku/ch1.p6 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; +} -- cgit