in reply to Solve Word Ladders

I'd like to suggest this bugfix. I downloaded ENABLE and unziped and all. But for some reason my perl (5.6.0 and 5.6.1 on Mandrake 8.0) wouldn't read that file properly. It kept cutting off the last character of the words. I'm a bit out of practice on my Perl, so I havn't deciphered the reason, but this fixed it for me.

By the way, thanks a ton for this program. I'm writing a short story spoof of Alice based on word ladders for a class, and I need this program to produce lots of ladders for me. At least, if my idea pans out. Perhaps if the story is any good, I'll put up a link, though it will have little to do with Perl. ;)

# This is around line 40 # Insert this where the second 'my @wordlist;' is declared. my @wordlist; while (<WORDS>) { $_ =~ /(\w*)/; $_ = $1; push @wordlist, $_ if length $_ == length $word[0]; } close (WORDS);

Lexicon

Replies are listed 'Best First'.
Re: Re: Solve Word Ladders
by chipmunk (Parson) on Nov 26, 2001 at 01:36 UTC
    I'm glad to hear that you've found this program useful!

    Regarding your bug report, it sounds like the word file has Windows line endings rather than Unix line endings. chomp removes the linefeed, but not the carriage return, screwing up the length of the line. Try removing carriage returns from the word file: perl -pi -e 'tr/\r//d' wordlist