diff options
| -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 |