Merge pull request #4005 from fluca1978/pwc111

Pwc111

4 files changed, 29 insertions, 0 deletions

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/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;
+}