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

Re: [FWP] 100 point words.



On 24 Jul 1999, Randal L. Schwartz wrote:
>perl -ne '$o = $_; $s = 0; $s += $n while $n = tr/A-Za-z/@-Y`-y/; 
print $o if $s == 100' /usr/dict/words

Smartass! :-)


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