diff options
| -rw-r--r-- | challenge-064/mark-anderson/raku/ch-2.raku | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/challenge-064/mark-anderson/raku/ch-2.raku b/challenge-064/mark-anderson/raku/ch-2.raku index 3a4f28ec3e..56f8e5fd9d 100644 --- a/challenge-064/mark-anderson/raku/ch-2.raku +++ b/challenge-064/mark-anderson/raku/ch-2.raku @@ -4,16 +4,6 @@ my $S = "perlweeklychallenge"; my @W = <weekly challenge perl week>; my %H; -for @W -> $w { - if $S ~~ /$w/ { - %H{$/.from}.push: ~$/; - } -} +@W.map: -> $w { %H{$/.from}.push: ~$/ if $S ~~ /$w/ }; -if %H.keys == 0 { - say "0 as no matching word found"; -} - -else { - say %H.keys.sort(* <=> *).map({|%H{$_}.sort(*.chars)}).join(", "); -} +say %H.keys.sort(* <=> *).map({|%H{$_}.sort(*.chars)}).join(", ") || "0"; |