Word frequency: Difference between revisions
m
→{{header|Perl 6}}: Remove some unnecessary interim variables
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Remove some unnecessary interim variables) |
||
Line 50:
<lang perl6>sub MAIN ($filename, $count = 10) {
.say for $/».Str.Bag.sort( -*.value )[^$count];
}</lang>
| |||