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 (limited to 'challenge-111') 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 From 27948101449efadb7c4e7d199a67d69d0f0f8458 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 3 May 2021 11:21:01 +0200 Subject: Task 2 done --- challenge-111/luca-ferrari/raku/ch-2.p6 | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 challenge-111/luca-ferrari/raku/ch-2.p6 (limited to 'challenge-111') diff --git a/challenge-111/luca-ferrari/raku/ch-2.p6 b/challenge-111/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..d35c9d3662 --- /dev/null +++ b/challenge-111/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,11 @@ +#!raku + + +sub MAIN( Str $words-file-name = '/usr/share/dict/words' ) { + my %words; + + %words{ $_.chars }.push: $_ if ( $_.fc ~~ $_.fc.split( '' ).sort.join ) + for $words-file-name.IO.lines(); + + %words{ %words.keys.sort[ * - 1 ] }.join( "\n" ).say; +} -- cgit 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 (limited to 'challenge-111') 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