Merge pull request #8711 from wambash/challenge-week-234

solutions week 234

2 files changed, 43 insertions, 0 deletions

diff --git a/challenge-234/wambash/raku/ch-1.raku b/challenge-234/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..97787f7ee2
--- /dev/null
+++ b/challenge-234/wambash/raku/ch-1.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env raku
+
+sub common-characters (+words) {
+    words
+    andthen .map: *.comb.Bag
+    andthen [∩] $_
+    andthen .kxxv
+    andthen .sort
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is common-characters(<java javascript julia>), <a j>;
+    is common-characters(<bella label roller>), <e l l>;
+    is common-characters(<cool lock cook>), <c o>;
+    done-testing;
+}
+
+multi MAIN (*@words) {
+    put common-characters @words
+}
diff --git a/challenge-234/wambash/raku/ch-2.raku b/challenge-234/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..d06d3fec03
--- /dev/null
+++ b/challenge-234/wambash/raku/ch-2.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+sub unequal-triplets (+ints) {
+    ints
+    andthen .Bag
+    andthen .values
+    andthen .combinations: 3
+    andthen .map: { [*] $_ }\
+    andthen .sum
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is unequal-triplets(4,4,2,4,3),3;
+    is unequal-triplets(1,1,1,1,1),0;
+    is unequal-triplets(4, 7, 1, 10, 7, 4, 1, 1), 28;
+    done-testing;
+}
+
+multi MAIN (+@ints) {
+    say unequal-triplets @ints
+}