Help for this page

Select Code to Download


  1. or download this
    while (<IN>) {
    chomp;
    printf "%4.2f $_\n", score (\%rows, \%cols,$_)
      if length >=$MIN && not /[A-Z]/;
}
  2. or download this
    unless length < $MIN || /[A-Z]/;
  3. or download this
    sub score {

...
   return ($tot / (length($str) - 1) + ($mostc-$leastc) / 3);
}