diff options
| -rw-r--r-- | challenge-295/mark-anderson/raku/ch-1.raku | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-295/mark-anderson/raku/ch-1.raku b/challenge-295/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..19ba697448 --- /dev/null +++ b/challenge-295/mark-anderson/raku/ch-1.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku +use Test; + +ok word-break("weeklychallenge", <challenge weekly>); +ok word-break("perlrakuperl", <raku perl>); +nok word-break("sonsanddaughters", <sons sand daughters>); + +sub word-break($str, @words) +{ + $str ~~ /^ [ @words ]* $/ +} |