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

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



On Sun, Feb 25, 2001 at 02:05:23AM -0500, Tom Moertel wrote:
> Ronald J Kimball wrote:
> > 
> > 60 characters, including 5 for -le'':
> > 
> > perl -le'$a=pop;%0=(),@0{/./g}=s/[$a]//g,$n+=keys%0for<>;print$n' as < test
> 
> Pretty good, but it fails if there are no guesses (i.e., $ARGV[0] is
> '').

Oops.  61 characters.

perl -le'$a=pop;%0=(),@0{/./g}=s/[_$a]//g,$n+=keys%0for<>;print$n'


> BTW, I've managed to whittle my entry down to down to 59 strokes.  ;-)

I've got a few different approaches, but this is still my shortest.
When will we see yours?  :)


Ronald

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