solutions week 331

2 files changed, 47 insertions, 0 deletions

diff --git a/challenge-331/wambash/raku/ch-1.raku b/challenge-331/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..b4afda16ca
--- /dev/null
+++ b/challenge-331/wambash/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+sub last-word ($str) {
+    $str
+    andthen .words
+    andthen .tail
+    andthen .chars
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is last-word('The Weekly Challenge'), 9;
+    is last-word('   Hello   World    '), 5;
+    is last-word('Let\'s begin the fun' ), 3;
+    done-testing;
+}
+
+multi MAIN ($str) {
+    say last-word $str;
+}
diff --git a/challenge-331/wambash/raku/ch-2.raku b/challenge-331/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..4ac7c43499
--- /dev/null
+++ b/challenge-331/wambash/raku/ch-2.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+
+multi buddy-strings ($source, $target where {$source eq $target}) {
+   my @letters = $source.comb;
+   @letters Zeq @letters.skip
+   andthen .any
+}
+
+multi buddy-strings ($source, $target) {
+    $source.comb Z, $target.comb
+    andthen .grep: { .[0] !eq .[1] }, :v
+    andthen { .elems == 2 and all .[0] Zeq .[1].reverse}
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is buddy-strings('fuck','fcuk'), True;
+    is buddy-strings('love','love'), False;
+    is buddy-strings('fodo','food'), True;
+    is buddy-strings('fodo','fooo'), False;
+    is buddy-strings('feed','feed'), True;
+    done-testing;
+}
+
+multi MAIN ($source, $target) {
+    say so buddy-strings $source, $target;
+}