Re: [FWP] Cartesian Cross-Products in one <80 char line

[Uri Guttman <uri@sysarch.com>]

>>>>> "DLN" == David L Nicol <david@kasey.umkc.edu> writes:


  DLN> perl
  DLN> -lane'BEGIN{@r=[]}END{print"@$_"for@r}@r=map{$f=$_;map{[@$_,$f]}@r}@F'

how many hours did that take you? you should enter a team in the perl
golf tournament at tpc4.

uri

-- 
Uri Guttman  ---------  uri@sysarch.com  ----------  http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page  -----------  http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net  ----------  http://www.northernlight.com

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