Merge pull request #10455 from wambash/challenge-week-278

solutions week 278

2 files changed, 42 insertions, 0 deletions

diff --git a/challenge-278/wambash/raku/ch-1.raku b/challenge-278/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..06b8c3fe1c
--- /dev/null
+++ b/challenge-278/wambash/raku/ch-1.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+sub sort-string ($str) {
+    $str
+    andthen .match: /(<alpha>+)(\d+)/, :g
+    andthen .sort: *.[1]
+    andthen .map: *.[0]
+    andthen .Str
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is sort-string('and2 Raku3 cousins5 Perl1 are4'),'Perl and Raku are cousins';
+    is sort-string('guest6 Python1 most4 the3 popular5 is2 language7'), 'Python is the most popular guest language';
+    is sort-string('Challenge3 The1 Weekly2'), 'The Weekly Challenge';
+    is sort-string('b2 d4 c3 a1'), 'a b c d';
+    done-testing;
+}
+
+multi MAIN ($str) {
+    say sort-string $str
+}
diff --git a/challenge-278/wambash/raku/ch-2.raku b/challenge-278/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..26c2d1d447
--- /dev/null
+++ b/challenge-278/wambash/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+sub reverse-word ($str, :$char) {
+    $str.subst(
+        / (.)*? <after $char> /,
+        { [~] .[0].sort }
+    )
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is reverse-word('challenge', :char<e>), 'acehllnge';
+    is reverse-word('programming', :char<a>), 'agoprrmming';
+    is reverse-word('champion', :char<b>), 'champion';
+    done-testing;
+}
+
+multi MAIN ($str,:$char) {
+    say reverse-word $str,:$char
+}