Add TWC 279 solutions by Bruce Gray, in Raku only.

2 files changed, 34 insertions, 0 deletions

diff --git a/challenge-279/bruce-gray/raku/ch-1.raku b/challenge-279/bruce-gray/raku/ch-1.raku
new file mode 100644
index 0000000000..3f764371e4
--- /dev/null
+++ b/challenge-279/bruce-gray/raku/ch-1.raku
@@ -0,0 +1,18 @@
+sub task1 ( @letters, @weights --> Str ) {
+
+    warn "Ambiguous"  if @weights.repeated;
+    warn "Unexpected" if @weights.sort !eqv (@weights.keys X+ 1);
+    warn "@letters is not the same size as @weights, but should be." if @letters !== @weights;
+
+    return ( @weights Z @letters ).sort».[1].join;
+}
+
+
+use Test; plan +constant @tests =
+    ( 'PERL'   , <R E P L>     , +«<3 2 1 4> ),
+    ( 'RAKU'   , <A U R K>     , +«<2 4 1 3> ),
+    ( 'PYTHON' , <O H Y N P T> , +«<5 4 2 6 1 3> ),
+;
+for @tests -> ( $expected, @letters, @weights ) {
+    is task1(@letters, @weights), $expected, "@letters[], @weights[]";
+}
diff --git a/challenge-279/bruce-gray/raku/ch-2.raku b/challenge-279/bruce-gray/raku/ch-2.raku
new file mode 100644
index 0000000000..99c07426de
--- /dev/null
+++ b/challenge-279/bruce-gray/raku/ch-2.raku
@@ -0,0 +1,16 @@
+sub task2 ( Str $s --> Bool ) {
+
+    my $vowel_count = $s.comb(/:i<[aeiou]>/).elems;
+
+    return $vowel_count %% 2;
+}
+
+
+use Test; plan +constant @tests =
+    ( False , 'perl' ),
+    ( True  , 'book' ),
+    ( True  , 'good morning' ),
+;
+for @tests -> ( $expected, $in ) {
+    is task2($in), $expected, $in;
+}