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

[Uri Guttman <uri@sysarch.com>]

>>>>> "N" == Neko  <tgy@chocobo.org> writes:

  N> Let's lower the golf score a bit:

  N>   perl -pale'@r=map{$f=$_;map[@$_,$f],@r?@r:[]}@F}for(@r){$_="@$_"'

       perl -pale'@r=map{$f=$_;map[@$_,$f],@r||[]}@F}for(@r){$_="@$_"'

why use ?: when || will do?

are you entering the 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