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