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