From c86949ce7a84d582bcce84683a8f03b6221f5d35 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 20 Apr 2020 14:11:41 +0200
Subject: Task 2 done.

---
 challenge-057/luca-ferrari/raku/ch-2.p6 | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 challenge-057/luca-ferrari/raku/ch-2.p6

(limited to 'challenge-057')

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 );
+
+}
-- 
cgit