Help for this page

Select Code to Download


  1. or download this
    my $letters = shift @ARGV;
my @letters = split //, $letters;
my $pat = qr/^[$letters]+$/;
  2. or download this
    my $wordlist = 'words.en.list'; # assumed English wordlist
my @words = ();
...
  while (<$words>) { push @words, $_ if m/$pat/ }
  close $words;
}
  3. or download this
    sub count_letters ($) {
  my $word = shift;
...
  $word{$_}++ for split //, $word;
  return \%word;
}