diff options
| -rw-r--r-- | challenge-064/mark-anderson/raku/ch-2.raku | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/challenge-064/mark-anderson/raku/ch-2.raku b/challenge-064/mark-anderson/raku/ch-2.raku index 3a4f28ec3e..36e2cb214f 100644 --- a/challenge-064/mark-anderson/raku/ch-2.raku +++ b/challenge-064/mark-anderson/raku/ch-2.raku @@ -1,19 +1,9 @@ #!/usr/bin/env raku -my $S = "perlweeklychallenge"; -my @W = <weekly challenge perl week>; +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"; |