You might also want to look at this thread: "Countdown" (golf).#!/usr/bin/perl -w use strict; my @letters = qw(S C R A B B L); open(DICT,"/usr/dict/words") or die $!; while (<DICT>) { my $orig = $_; chomp; for my $letter (@letters) {s/$letter//i;} print $orig unless length; } close DICT;
Unfair to use this to cheat with, obviously. Intellectual interest only.
hth,
andy.
In reply to Scrabble, anagrams Re: Literati
by andye
in thread Literati
by artist
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |