From 1cbaef12f820f06395fec90354a691a91bfaac01 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 24 Aug 2025 22:37:11 +0200
Subject: solution week 335-1

---
 challenge-335/wambash/raku/ch-1.raku | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 challenge-335/wambash/raku/ch-1.raku

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