diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-10-05 00:28:31 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-10-05 00:28:31 -0600 |
| commit | 919167a2182dab382b6e4fbd533803734b71e8fb (patch) | |
| tree | 6df14ed9b4eb1d886b608ebe518305da0b5d0f7e | |
| parent | f75cdace1c2753c906e90ee441d6ca245ba1e753 (diff) | |
| download | perlweeklychallenge-club-919167a2182dab382b6e4fbd533803734b71e8fb.tar.gz perlweeklychallenge-club-919167a2182dab382b6e4fbd533803734b71e8fb.tar.bz2 perlweeklychallenge-club-919167a2182dab382b6e4fbd533803734b71e8fb.zip | |
Challenge 81 Solutions (Raku)
| -rw-r--r-- | challenge-081/mark-anderson/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-081/mark-anderson/raku/ch-2.raku b/challenge-081/mark-anderson/raku/ch-2.raku index 21e79f2491..e65393e196 100644 --- a/challenge-081/mark-anderson/raku/ch-2.raku +++ b/challenge-081/mark-anderson/raku/ch-2.raku @@ -7,6 +7,6 @@ sub freq-sort($file) { %h{$_}++ for $file.IO.slurp andthen S:g/<[."(),]>|\'s|\-\-/ /.words; - gather take "{.key} {|.value.sort}" + gather take "{.key} {.value.sort}" for %h.classify({.value}, :as{.key}).sort; } |