1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
ruby--ruby/sample/occur.pl
matz 3db12e8b23 Initial revision
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
1998-01-16 12:13:05 +00:00

9 lines
118 B
Raku

while (<>) {
for (split(/\W+/)) {
$freq{$_}++;
}
}
for (sort keys %freq) {
print "$_ -- $freq{$_}\n";
}