Re: [FWP] Cartesian Cross-Products

[Jeff Pinyan <jeffp@crusoe.net>]

>sub cartesian {
>  my @res = [] ; 
>  @res = map {$a=$_;map {[$a,@$_]} @res} @$_ for reverse @_ ;
>  @res ;
>}

Wow, I understand that completely, and it's damn fast.

-- 
MIDN 4/C PINYAN, NROTCURPI, US Naval Reserve             japhy@pobox.com
http://www.pobox.com/~japhy/                  http://pinyaj.stu.rpi.edu/
PerlMonth - An Online Perl Magazine            http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc.    http://www.perlarchive.com/


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe