Help for this page

Select Code to Download


  1. or download this
    perl -MO=Deparse -e "$letters{$_}++ for split //, lc;"
  2. or download this
    foreach $_ (split(//, lc $_, 0)) {
    ++$letters{$_};
}