diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-06-09 18:45:30 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-06-09 18:45:30 +0100 |
| commit | 7d47b05e1542f33acd26397b712634f3973316aa (patch) | |
| tree | d955629bd96dbb484aa3fd09958567f4b1046848 /challenge-064 | |
| parent | 36f0bb116a4ce3467386644d14539d65670a5837 (diff) | |
| parent | 307613748982db0e68e868be00b248abc20156d7 (diff) | |
| download | perlweeklychallenge-club-7d47b05e1542f33acd26397b712634f3973316aa.tar.gz perlweeklychallenge-club-7d47b05e1542f33acd26397b712634f3973316aa.tar.bz2 perlweeklychallenge-club-7d47b05e1542f33acd26397b712634f3973316aa.zip | |
Merge pull request #1811 from andemark/branch-for-challenge-064
ch-2.raku again
Diffstat (limited to 'challenge-064')
| -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"; |