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