Merge pull request #11166 from andemark/challenge-295

ch-1.raku

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..142a781f25
--- /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* $/
+}