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

RE: [FWP] 100 point words.



>One fewer than that (two ways):

Why not just count down?

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

(just a random thought... haven't checked it)

--
Tushar Samant
~
~
:wq


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