Merge pull request #12565 from wambash/challenge-week-335

solution week 335-1

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-335/wambash/raku/ch-1.raku b/challenge-335/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..0ce592bda5
--- /dev/null
+++ b/challenge-335/wambash/raku/ch-1.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+sub common-charakters (+words) {
+    words
+    andthen .map: *.comb.Bag
+    andthen [∩] $_
+    andthen .kxxv
+    andthen .sort
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is common-charakters(<bella label roller>), <e l l>;
+    is common-charakters(<cool lock cook>), <c o>;
+    is common-charakters('hello', 'world', 'pole'), <l o>;
+    is common-charakters('abc', 'def', 'ghi'), Empty;
+    is common-charakters('aab', 'aac', 'aaa'), <a a>;
+    done-testing;
+}
+
+multi MAIN (+words) {
+    put common-charakters words;
+}