SPUG: Re: Anagram finder in perl

Aaron W. West tallpeak at hotmail.com
Tue Nov 30 14:18:49 CST 2004



So much for not releasing the source of the C program.

----- Original Message ----- 
From: Aaron W. West
To: spug-list at mail.pm.org
Sent: Tuesday, November 30, 2004 12:17 PM
Subject: Anagram finder in perl

Scrabble/Literati players:

This is a fun tool to find 7 & 8 letter words. It can find smaller ones, but 
you need to enter the letters. I wrote a more powerful one in C, but don't 
feel like releasing the source.

Note that this implementation is slow for more than about two blanks, due to 
trying every combination for those blanks, in the line below:

        for my $wild ( 'a' x $wildcount .. 'z' x $wildcount ) {

Just imagine 'aaaa' to 'zzzz' ... I think I pressed control-C the time I 
tried four blanks. 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: anagram.pl
Type: application/x-perl
Size: 3169 bytes
Desc: not available
Url : http://mail.pm.org/archives/spug-list/attachments/20041130/295ee2f2/anagram.bin

More information about the spug-list mailing list