solution week 220-1

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-220/wambash/raku/ch-1.raku b/challenge-220/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..7004295068
--- /dev/null
+++ b/challenge-220/wambash/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub common-characters (+@words) {
+    @words
+    andthen .map: *.lc.comb
+    andthen [∩] $_
+    andthen .keys.sort
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is common-characters(<Perl Rust Raku>), <r>;
+    is common-characters(<love live leave>), <e l v>;
+    done-testing;
+}
+
+multi MAIN (*@words) {
+    put common-characters @words
+}