counting characters in a message sent by a baseball
12345678910111213141516171819
# Here is a program to count the numbers of each character
# show n in the "Input" tab below. If you click "Run" the
# pregram will run and show you the answer in the "Output"
# box.
while (<>) {
foreach my $character (split //) {
if ($character =~ "\n") {
$counted{"\\n"}++ ;
}
else {
$counted{$character}++ ;
}
}
}
foreach my $character (sort {$counted{$a} <=> $counted{$b}} keys %counted) {
print "$character \t $counted{$character}\n";
}
Perl
INFO