diff options
| -rw-r--r-- | challenge-064/mohammad-anwar/raku/ch-2.p6 | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/challenge-064/mohammad-anwar/raku/ch-2.p6 b/challenge-064/mohammad-anwar/raku/ch-2.p6 index b53f4f6160..914963ffcf 100644 --- a/challenge-064/mohammad-anwar/raku/ch-2.p6 +++ b/challenge-064/mohammad-anwar/raku/ch-2.p6 @@ -5,13 +5,7 @@ use v6.d; sub MAIN(Str :$string = "perlweeklychallenge", :@words where .all ~~ Str = ("weekly", "challenge", "perl")) { - my @matched = word-break($string, @words); - - (@matched.elems) - ?? - (@matched.join(", ").say) - !! - (say "None matched."); + word-break($string, @words).join(", ").say; } sub word-break(Str $string, @words where .all ~~ Str) { |