in reply to Re: word finder
in thread word finder
#!/usr/bin/perl -w use strict; my $length = 4; # max length of the word to find my $find = "test"; # the word to find sub gen_word { my $prev = shift; my $len = shift; if ($len == 1) { for (my $idx = 65; $idx <= 122; $idx++) { my $word = $prev . chr($idx); print "word: $word\n"; if ($find eq $word) { print "found: " . $word . "\n"; exit(); } } } else { for (my $idx = 65; $idx <= 122; $idx++) { &gen_word($prev . chr($i +dx), $len - 1); } } } &gen_word("", $length); 1;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: Re: word finder
by halley (Prior) on Apr 12, 2004 at 13:21 UTC |