ch-2.p6

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-057/mark-anderson/ch-2.p6 b/challenge-057/mark-anderson/ch-2.p6
new file mode 100644
index 0000000000..eb203a884b
--- /dev/null
+++ b/challenge-057/mark-anderson/ch-2.p6
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+my @words = <alphabet book carpet cadmium cadeau alpine>;
+
+my @prefixes = gather {
+    for @words -> $word {
+        my $prefix;
+        my $length = 0;
+
+        repeat {
+            $length++;
+            $prefix = $word.substr(0, $length);
+        } while @words.grep(* ne $word) ~~ / ^ $prefix /; 
+
+        take $prefix;
+    }
+}
+
+say @prefixes;