Task 2 done.

1 files changed, 25 insertions, 0 deletions

diff --git a/challenge-057/luca-ferrari/raku/ch-2.p6 b/challenge-057/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..f9c55dc6b0
--- /dev/null
+++ b/challenge-057/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,25 @@
+#!env raku
+
+# Perl Weekly Challenge 57
+# see <https://perlweeklychallenge.org/blog/perl-weekly-challenge-057/>
+#
+# Task 2
+
+
+sub prefix( @words, $len ) {
+    for @words.classify( *.substr( 0, $len ) ) {
+        if $_.value.elems == 1 {
+            say "Prefix { $_.key } (length = $len)";    
+        }
+        else {
+            prefix( $_.value, $len + 1 );
+        }
+    }
+}
+
+sub MAIN( ) {
+    my @words =  [ "alphabet", "book", "carpet", "cadmium", "cadeau", "alpine" ];
+
+    prefix( @words, 1 );
+
+}