Miroirs/xwords
1
0
Fork 0
mirror of git://xwords.git.sourceforge.net/gitroot/xwords/xwords synced 2025-01-30 08:34:16 +01:00
Code Issues Projects Releases Packages Wiki Activity

fix for langs with custom tiles

Browse source
This commit is contained in:
ehouse 2003-12-14 19:52:49 +00:00
parent 75d2f37d56
commit c44d83e413
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
xwords4/dawg/dictstats.pl
View file

@ -28,7 +28,8 @@ while (<>) {
foreach my $letter (split( / */ ) ) { foreach my $letter (split( / */ ) ) {
my $i = ord($letter); my $i = ord($letter);
die "$0: this is a letter?: $i" if $i <= 32; # special-case the bogus chars we add for "specials"
die "$0: this is a letter?: $i" if $i <= 32 && $i >= 4 && $i != 0;
++$letterCounts[$i]; ++$letterCounts[$i];
++$letterCount; ++$letterCount;
} }
@ -52,7 +53,7 @@ for ( my $i = 1 ; $i <= 15; ++$i ) {
print "\n\n**** Letter counts ****\n"; print "\n\n**** Letter counts ****\n";
print "ASCII ORD HEX PCT (of $letterCount)\n"; print "ASCII ORD HEX PCT (of $letterCount)\n";
for ( my $i = 32; $i < 255; ++$i ) { for ( my $i = 0; $i < 255; ++$i ) {
my $count = $letterCounts[$i]; my $count = $letterCounts[$i];
if ( $count > 0 ) { if ( $count > 0 ) {
my $pct = (100.00 * $count) / $letterCount; my $pct = (100.00 * $count) / $letterCount;