diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-05 15:06:50 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-10-05 15:06:50 +0200 |
| commit | bf336a8240eca12955e0c716a8b941fb8f9d7128 (patch) | |
| tree | 93a7f2163dde027738eb1b2969a37e06fce617cd | |
| parent | e76c469aee73e0b089bfe53d59fc32d13098378c (diff) | |
| download | perlweeklychallenge-club-bf336a8240eca12955e0c716a8b941fb8f9d7128.tar.gz perlweeklychallenge-club-bf336a8240eca12955e0c716a8b941fb8f9d7128.tar.bz2 perlweeklychallenge-club-bf336a8240eca12955e0c716a8b941fb8f9d7128.zip | |
better
| -rw-r--r-- | challenge-081/markus-holzer/raku/ch-2.raku | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/challenge-081/markus-holzer/raku/ch-2.raku b/challenge-081/markus-holzer/raku/ch-2.raku index f905e35692..ec328c4e19 100644 --- a/challenge-081/markus-holzer/raku/ch-2.raku +++ b/challenge-081/markus-holzer/raku/ch-2.raku @@ -1,19 +1,14 @@ unit sub MAIN( $file where $file.IO.f ); +my @ignore = <. ! ? " ( ) , 's -->; + my $words = $file .IO .slurp - .subst(/ <[ \. \" \( \) \, ]> | \'s | \-\- /, ' ', :g) + .subst( /@ignore/, ' ', :g ) .words - .Bag; - -my $freqs = $words - .values - .sort - .squish; + .Bag + .classify( *.value ); -for @$freqs -> $f { - say join " ", $f, |$words - .grep( *.value == $f ) - .sort - .map: *.key }
\ No newline at end of file +say join " ", $_, slip sort $words{$_}>>.key + for sort $words.keys;
\ No newline at end of file |