From 0189f0088ce4ebdcec50f107cf038e95477f4662 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 3 May 2021 12:51:30 +0200 Subject: Blog references. --- challenge-111/luca-ferrari/blog-1.txt | 1 + challenge-111/luca-ferrari/blog-2.txt | 1 + challenge-111/luca-ferrari/raku/ch-1.p6 | 16 ++++++++++++++++ challenge-111/luca-ferrari/raku/ch1.p6 | 16 ---------------- 4 files changed, 18 insertions(+), 16 deletions(-) create mode 100644 challenge-111/luca-ferrari/blog-1.txt create mode 100644 challenge-111/luca-ferrari/blog-2.txt create mode 100644 challenge-111/luca-ferrari/raku/ch-1.p6 delete mode 100644 challenge-111/luca-ferrari/raku/ch1.p6 diff --git a/challenge-111/luca-ferrari/blog-1.txt b/challenge-111/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..d6e853772f --- /dev/null +++ b/challenge-111/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/05/03/PerlWeeklyChallenge111.html#task1 diff --git a/challenge-111/luca-ferrari/blog-2.txt b/challenge-111/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..1c01381bef --- /dev/null +++ b/challenge-111/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/05/03/PerlWeeklyChallenge111.html#task2 diff --git a/challenge-111/luca-ferrari/raku/ch-1.p6 b/challenge-111/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..565aeee6e9 --- /dev/null +++ b/challenge-111/luca-ferrari/raku/ch-1.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; +} diff --git a/challenge-111/luca-ferrari/raku/ch1.p6 b/challenge-111/luca-ferrari/raku/ch1.p6 deleted file mode 100644 index 565aeee6e9..0000000000 --- a/challenge-111/luca-ferrari/raku/ch1.p6 +++ /dev/null @@ -1,16 +0,0 @@ -#!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