diff options
| -rw-r--r-- | challenge-111/luca-ferrari/raku/ch1.p6 | 16 |
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; +} |