diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-14 18:58:53 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-06-14 18:58:53 +0100 |
| commit | 0132927c8dde536e4265667f608349a1c02f5646 (patch) | |
| tree | 3f0b50a9b57e648ab458e19779e5c07a4a0d3ee9 | |
| parent | 364119d954e41b1bcd8adb4c9ad9c63b1b9102fe (diff) | |
| download | perlweeklychallenge-club-0132927c8dde536e4265667f608349a1c02f5646.tar.gz perlweeklychallenge-club-0132927c8dde536e4265667f608349a1c02f5646.tar.bz2 perlweeklychallenge-club-0132927c8dde536e4265667f608349a1c02f5646.zip | |
- Tidied up Raku solution.
| -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) { |