Merge pull request #5983 from wambash/challenge-week-161

solution week 161-1

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-161/wambash/raku/ch-1.raku b/challenge-161/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..8d115fc055
--- /dev/null
+++ b/challenge-161/wambash/raku/ch-1.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+sub is-abecedarian($word) {
+    $word eq $word.comb.sort.join
+}
+
+multi MAIN (  ) {
+    '../../../data/dictionary.txt'
+    andthen .IO.lines
+    andthen .grep: &is-abecedarian
+    andthen .map: *.say
+    ;
+}
+
+multi MAIN ( Bool :test($)! ) {
+    use Test;
+    is is-abecedarian('abcdef'), True;
+    is is-abecedarian('abcdfe'), False;
+    is is-abecedarian('moors'),  True;
+    is is-abecedarian('ghost'),  True;
+    is is-abecedarian('girls'),  False;
+    done-testing;
+}