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

Re: [FWP] Golf challenge: Scoring a word list



Ronald J Kimball <rjk@linguist.thayer.dartmouth.edu> wrote:

> 60 characters, including 5 for -le'':
> 
> perl -le'$a=pop;%0=(),@0{/./g}=s/[$a]//g,$n+=keys%0for<>;print$n' as < test

Oh, well.  I was about to post a 71-character solution.  I'll 
have to content myself with shaving 2 off yours:

  perl -le'$a=pop;%0=(),@0{/[^$a\n]/g}=1,$n+=keys%0for<>;print$n' as < test

-- 
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC

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