 "be consistent"  Algorithm help  by Anonymous Monk on Sep 19,
2000 at 16:19 UTC ( #33082=note: print w/ replies, xml ) Need
Help??  in reply to Search Algorithm  I need a solution for a
problem I'm having. I have two fields. A user will be able to
enter words separated by spaces in both fields. I need to
extract all the words and create a list of words. for example if
the user was to enter: apples oranges pears the program will
output apples applesoranges applespears oranges orangesapples
orangespears pears pearsapples pearsoranges etc and the list
goes on. I do not have telnet so the abigal package will not
help me. Please e-mail me with a solution is someone is willing
to help.  Comment on Algorithm help Re: Algorithm help by
Anonymous Monk on Jan 09, 2001 at 22:34 UTC     @fruit=qw(apples
oranges pears); for $f0 (@fruit){ for $f1( "",@fruit ){ print
"$f0$f1\n" unless $f0 eq $f1; }}        Here's the same thing,
except using nested maps. Is there a way to do this in just one
pass?        my @fruit = qw/ ap