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

RE: [FWP] 100 point words.



> From: Rick Delaney [mailto:rick.delaney@home.com]
> Sent: Saturday, July 24, 1999 10:58
> To: fwp@technofile.org
> Subject: Re: [FWP] 100 point words.
> 
> 
> lr@hpl.hp.com wrote:
> > 
> > Using your base, 10 characters fewer:
> > 
> >     perl -ne'$t=0;$t+=ord(uc)-64 for split//;$t-46||print'
> > 
> > Do we have a winner yet?
> 
> Well, using this base we can knock off a few more characters:
> 
>     perl -ne'$t=46;$t-=ord(uc)-64 for split//;$t||print'

Still one character too many.

      perl -ne'$t=46;$t+=64-ord uc for split//;$t||print'

> or even
> 
>     perl -ne'$t=558;$t-=ord uc for split//;$t||print'

As pointed out already, no.

-- 
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com 
 

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