Re: [FWP] 100 point words.

[Ronald J Kimball <rjk@linguist.dartmouth.edu>]

On Fri, Jul 23, 1999 at 02:15:48PM -0500, Edward M. Perry wrote:
> > For shortest, can anyone beat this one-liner?
> > 
> > 
> > perl -e'while(<>){$t+=1+ord($1)-ord"a"while/(.)/g;print if$t==100;$t=0}'
> > 
> 
> How bout
> 
> perl -e'while(<>){$t+=1+ord($1)-97 while/(.)/g;print if$t==100;$t=0}'
> 
> :)
> 

Well, if you're going to optimize the ord"a", you might as well remove the
+1 as well.

perl -e'while(<>){$t+=ord($1)-96 while/(.)/g;print if$t==100;$t=0}'

:)


Ronald

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