solutions week 094

2 files changed, 28 insertions, 0 deletions

diff --git a/challenge-094/wambash/raku/ch-1.raku b/challenge-094/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..44057201fd
--- /dev/null
+++ b/challenge-094/wambash/raku/ch-1.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+sub group-anagrams ( +@s ) {
+    @s
+    andthen .classify:  *.comb.Bag
+}
+
+multi MAIN (Bool :$test!) {
+    use Test;
+    is group-anagrams(<x>).values, <x>;
+    is-deeply group-anagrams(<opt bat saw tab pot top was>).values.sort,(<opt pot top>, <saw was>, <bat tab>).map(*.Array).sort;
+    done-testing
+}
+
+multi MAIN ( *@s ) {
+    say group-anagrams(@s).values
+}
diff --git a/challenge-094/wambash/raku/ch-2.raku b/challenge-094/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..c862844ba1
--- /dev/null
+++ b/challenge-094/wambash/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+sub binary-tree-to-linked-list ( @a ) {    
+      gather { @a.deepmap: *.take }
+}
+
+sub MAIN (Bool :$test!) {
+    use Test;
+    is-deeply binary-tree-to-linked-list( (1, (2,(4,(5,6,7))), 3) ), (1,2,4,5,6,7,3);
+    done-testing;
+}