Merge pull request #4033 from wambash/challenge-week-111

Solutions for week 111

2 files changed, 31 insertions, 0 deletions

diff --git a/challenge-111/wambash/raku/ch-1.raku b/challenge-111/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..f78af51466
--- /dev/null
+++ b/challenge-111/wambash/raku/ch-1.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+sub search-matrix ( $n, @matrix ) {
+    @matrix
+    andthen .first: $n ≤ *.tail
+    andthen .first: { $n == $_ }
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    my @matrix =
+    [  1,  2,  3,  5,  7 ],
+    [  9, 11, 15, 19, 20 ],
+    [ 23, 24, 25, 29, 31 ],
+    [ 32, 33, 39, 40, 42 ],
+    [ 45, 47, 48, 49, 50 ],
+    ;
+
+    nok search-matrix(35, @matrix);
+    is  search-matrix(39, @matrix), 39;
+    done-testing;
+}
diff --git a/challenge-111/wambash/raku/ch-2.raku b/challenge-111/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..794ffb91ee
--- /dev/null
+++ b/challenge-111/wambash/raku/ch-2.raku
@@ -0,0 +1,9 @@
+#!/usr/bin/env raku
+
+unit sub MAIN ($file-with-words = '/usr/share/dict/words-insane');
+
+$file-with-words.IO
+andthen .lines().race
+andthen .grep: {  $_ eq .comb.sort.join }\ #collate
+andthen .max: *.chars
+andthen .say