RE: [FWP] 100 point words.

[Larry Rosler <lr@hpl.hp.com>]

> From: merlyn@stonehenge.com [mailto:merlyn@stonehenge.com]
> Sent: Saturday, July 24, 1999 15:46
> To: Brent Michalski
> Cc: fwp@technofile.org
> Subject: Re: [FWP] 100 point words.
...
> Brent> It would be fun to create such a program and run it against a
> Brent> "standard/common" dictionary and see who could do it 
> in the coolest, or
> Brent> shortest, way...
> 
> perl -ne '$o = $_; $s = 0; $s += $n while $n = 
> tr/A-Za-z/@-Y`-y/; print $o if $s == 100' /usr/dict/words

That is certainly not the shortest, and I doubt that it is the fastest.
But it may well be the coolest (for some definitions of 'cool',
including 'tricky' or just 'weird').

-- 
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