3 lines
92 B
Perl
3 lines
92 B
Perl
|
while (<>) { $cnt{lc chop}++ while length }
|
||
|
|
print "$_: ", $cnt{$_}//0, "\n" for 'a' .. 'z';
|