From 364119d954e41b1bcd8adb4c9ad9c63b1b9102fe Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Sun, 14 Jun 2020 18:51:41 +0100 Subject: - Tidied up Raku solution. --- challenge-064/mohammad-anwar/raku/ch-2.p6 | 6 +++--- 1 file 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 }); -- cgit