Merge pull request #6160 from wambash/challenge-week-166

solution week 166-1

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-166/wambash/raku/ch-1.raku b/challenge-166/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..1b9cb4fb1d
--- /dev/null
+++ b/challenge-166/wambash/raku/ch-1.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+sub is-hexadecimal-word ($s) {
+    $s
+    andthen .lc
+    andthen .trans: 'olist' => '01157'
+    andthen ? .parse-base: 16
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is is-hexadecimal-word('food'), True;
+    is is-hexadecimal-word('frodo'), False;
+    done-testing;
+}
+
+multi MAIN ($dict-file = '../../../data/dictionary.txt') {
+    $dict-file.IO
+    andthen Supply.from-list: .lines
+    andthen .grep: 2 ≤ *.chars ≤ 8
+    andthen .grep: &is-hexadecimal-word
+    andthen .tap: &put
+}