diff options
| -rw-r--r-- | challenge-064/mohammad-anwar/raku/ch-2.p6 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-064/mohammad-anwar/raku/ch-2.p6 b/challenge-064/mohammad-anwar/raku/ch-2.p6 index 9cd60e73f0..b53f4f6160 100644 --- a/challenge-064/mohammad-anwar/raku/ch-2.p6 +++ b/challenge-064/mohammad-anwar/raku/ch-2.p6 @@ -2,8 +2,8 @@ use v6.d; -sub MAIN(Str $string = "perlweeklychallenge", - @words where .all ~~ Str = ("weekly", "challenge", "perl")) { +sub MAIN(Str :$string = "perlweeklychallenge", + :@words where .all ~~ Str = ("weekly", "challenge", "perl")) { my @matched = word-break($string, @words); @@ -17,7 +17,7 @@ sub MAIN(Str $string = "perlweeklychallenge", sub word-break(Str $string, @words where .all ~~ Str) { my @matched = @words.grep: -> $word { $string ~~ / $word / }; - return unless @matched.elems; + return 0 unless @matched.elems; my %search-order = @matched.map( -> $word { $string.index($word) => $word }); |