>From a game:
You draw a random number of random letters and have to use all of them to
create words.
The problem:
Get the random number of letters on STDIN and print out all permutations on
STDOUT. (input matching /^[a-z]{3,16}$/ )
I'm currently at 200+ using a couple of nested for-loops and to much time,
which is basically why I was curios what you guys could come up with.
I found this on the perl-beginner list:
Perl -e
'*,=sub{print+local$*=$*.$_[$_],$/,&,(@_[1+$_..$#_])for$#..$#_};&,(1..5)'
By Paul Johnson, which isn't to shabby, but not really up to specs.
Anyone?
PS: In the real life code, I ended up using a CPAN module :)
Tor
