# from David Landgren
# on Monday 22 May 2006 09:52 am:

>print join( ' ', map { "(@{$p->[$_]})" } 0..$#$p ), "\n";

Stylistically, I think it is much clearer to not use the index if you 
don't need it.

  print join(' ', map { "(@$_)" } @$p ), "\n";

As for the name, I think Permute might be more appropriate.  "Partition" 
doesn't tend to generate every possible permutation.

--Eric
-- 
Turns out the optimal technique is to put it in reverse and gun it.
--Steven Squyres (on challenges in interplanetary robot navigation)
---------------------------------------------------
    http://scratchcomputing.com
---------------------------------------------------

Reply via email to