This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my $t;($t+=.value;say .key.perl,':',.value)for slurp(@*ARGS[0]||die).comb.classify(~*).map({;.key=>+.value}).sort(*.value);say "Total: $t." |
384 characters db01b9
350 characters d1be50
327 characters 5c923e
304 characters cc261f
271 characters d00f35
256 characters b05bc2
234 characters 866f9d
229 characters 09bd85
196 characters 753297
187 characters 8a625f
150 characters c20767
140 characters 237d45
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
464 characters e5ced4