RE: permutations?

[merlyn]

Untested, but I often get this stuff right on the first try... :)

my $words = { 
   'lng'       => ['lang', 'long', 'leng', 'loo'], 
   'sentance'  => ['sentence'], 
   'thxs'      => ['this', 'thus'] 
};
print map "$_\n", phol($words);
sub phol {
  my($key, $value, @rest) = %{+shift};
  if (@rest) {
    return map { my $r = $_; map { "$_ $r" } @$value } phol({@rest});
  } else {
    return @$value;
  }
}

-- Randal L. Schwartz, Perl hacker

[Anonymous Monk]

Is there any easier way to get values listed as permutations? I mean I can't use those Perl things at all. And I would like to get all 120 permutations of five letters listed. Is there any way find such program without programming? [e-mail]