[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [FWP] perl5 is 5



Andy Lester <andy@petdance.com> wrote:
> > This lends itself to squeezing out 3 more characters, for 73:
> > 
> > print+("dear perl5,","\nHappy birthday ","to you,","\b.")[1,2,1,2,1,0..3]
> 
> Well, then here's another, compressing that 1,2,1,2 sequence:
> 
> print+("dear perl5,","\nHappy birthday ","to you,","\b.")[(1,2)x2,1,0..3]

I tried that.  I think your 2-character savings came from
the omission of "> ".   length('1,2,1,2') == length('(1,2)x2').

-- 
Steven Alexander
stevena@teleport.com
<http://www.teleport.com/~stevena/>
perl -le 'print map chr($_?64+((0<=>$_)+(-1+$_**2)**2)%17:()),-2..2'


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