Re: [FWP] 100 point words.

[Rick Delaney <rick.delaney@home.com>]

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'

or even

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

-- 
Rick Delaney
rick.delaney@home.com

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