I wrote a word descrambler that works very well, but is very slow
compared to http://www.jumble.org
I'm wondering how others could write to code so that it'd find words faster.
#useful with dictionary from http://wordlist.sourceforge.net/
use strict;
my %dictionary;
opendir(DIR, "$ENV{'HOME'}/data/dictionary/");
foreach my $file (grep {/^english-word/} readdir DIR){
open(DICT, "$ENV{'HOME'}/data/dictionary/$file");
warn "reading data/dictionary/$file\n";
while(<DICT>){
chop;
next unless(/^[a-z]+$/);
my $len = length($_);
push @{$dictionary{$len}}, $_;
}
close DICT;
}
closedir DIR;
while(1){
print "word: ";
chop(my $scramble = <STDIN>);
$scramble =~ s/\s+//g;
my $slen = length($scramble);
my @s = split //, $scramble;
foreach my $word (@{$dictionary{$slen}}){
my @w = split //, $word;
my $found;
foreach my $sl (0..($slen-1)){
foreach my $l (0..($slen-1)){
if($s[$sl] eq $w[$l]){
delete $w[$l];
$found++;
last;
}
}
last unless($found);
}
next unless($found == $slen);
print "$word\n";
}
}
--
Jeremy Kister
http://jeremy.kister.net./
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
