diff options
| -rw-r--r-- | challenge-111/wambash/raku/ch-1.raku | 22 | ||||
| -rw-r--r-- | challenge-111/wambash/raku/ch-2.raku | 9 |
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 |