print STDERR "Only showing 200 of the " . @allowable_words . " possible words\n";
@allowable_words = @allowable_words[0..199];
}
- while ((@allowable_words == 0 or $options{multiword}) and
- (@allowable_words < 200 or $options{show_all})
- ) {
- # try for multiple word solutions, start with the longest
- # words possible
-
- # try to split the number of known letters in half, and
- # start increasing and decreasing in both directions
-
- # don't attempt to split each part into bits unless there
- # are no solutions
-
- # avoid searching for words when we only have a length and
- # no position information
- }
+ # multiword currently not enabled
+ # while ((@allowable_words == 0 or $options{multiword}) and
+ # (@allowable_words < 200 or $options{show_all})
+ # ) {
+ # # try for multiple word solutions, start with the longest
+ # # words possible
+ #
+ # # try to split the number of known letters in half, and
+ # # start increasing and decreasing in both directions
+ #
+ # # don't attempt to split each part into bits unless there
+ # # are no solutions
+ #
+ # # avoid searching for words when we only have a length and
+ # # no position information
+ # }
print map {$_,qq(\n)} sort @allowable_words;
}
}