TWC279

2 files changed, 23 insertions, 0 deletions

diff --git a/challenge-279/deadmarshal/raku/ch-1.raku b/challenge-279/deadmarshal/raku/ch-1.raku
new file mode 100644
index 0000000000..be130856e0
--- /dev/null
+++ b/challenge-279/deadmarshal/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+
+sub sort-letters(@letters,@weights)
+{
+  my %h = @letters Z=> @weights;
+  %h.sort(*.value)>>.keys.join('')
+}
+
+say sort-letters(['R','E','P','L'],[3,2,1,4]);
+say sort-letters(['A','U','R','K'],[2,4,1,3]);
+say sort-letters(['O','H','Y','N','P','T'],[5,4,2,6,1,3]);
+
diff --git a/challenge-279/deadmarshal/raku/ch-2.raku b/challenge-279/deadmarshal/raku/ch-2.raku
new file mode 100644
index 0000000000..58fa466255
--- /dev/null
+++ b/challenge-279/deadmarshal/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+sub split-string($str)
+{
+  $str.lc.comb(/<[aeiou]>/).elems %% 2
+}
+
+say split-string('perl');
+say split-string('book');
+say split-string('good morning');
+