Task 1 and 2 done

2 files changed, 23 insertions, 0 deletions

diff --git a/challenge-115/luca-ferrari/raku/ch-1.p6 b/challenge-115/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..078dc2e32d
--- /dev/null
+++ b/challenge-115/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,13 @@
+#!raku
+
+sub MAIN( *@words  where { @words.elems > 0 } ) {
+
+    # get a list of all initiali letters
+    # and one of all tailing ones
+    my @headings = @words.map: *.substr( 0, 1 );
+    my @tailings = @words.map: *.substr( * - 1 );
+
+    # if the sorted list are the same, there is a match!
+    say @headings.sort ~~ @tailings.sort ?? 1 !! 0;
+
+}
diff --git a/challenge-115/luca-ferrari/raku/ch-2.p6 b/challenge-115/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..18809e844f
--- /dev/null
+++ b/challenge-115/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,10 @@
+#!raku
+
+sub MAIN( *@N where { @N.elems > 0 && @N.grep( * ~~ Int ).elems == @N.elems } ) {
+    # create a list of integers
+    # with only those that are divisible by 2
+    my Int @numbers.push: .join.Int if .join.Int %% 2 for @N.permutations;
+
+    # now ask for the max
+    say @numbers.max;
+}