print words up to 99 letters long

This commit is contained in:
ehouse 2004-07-21 02:04:57 +00:00
parent 37f889703a
commit c955c24dc3

View file

@ -41,7 +41,7 @@ print "Number of letters: $letterCount\n\n";
print "**** word sizes ****\n";
print "SIZE COUNT PERCENT\n";
for ( my $i = 1 ; $i <= 15; ++$i ) {
for ( my $i = 1 ; $i <= 99; ++$i ) {
my $count = $wordSizeCounts[$i];
if ( $count > 0 ) {
my $pct = (100.00 * $count)/$wordCount;