On Sat, Feb 24, 2001 at 10:58:57PM -0500, Tom Moertel wrote: > > THE GOLF CHALLENGE > > Write the shortest Perl one-liner that reads a list of words on > standard input and prints its score, given that the letters in > $ARGV[0] have been guessed. For example, if the file "test" contains: > > makers > primal > vulcan > > You should be able to enter the following command line > > perl [MAGIC STUFF HERE] "as" <test > > and see "14" as output. > > I've got my golf entry ready (73 chars), but I'll wait a while before > posting it to avoid tainting the idea pool. > 60 characters, including 5 for -le'': perl -le'$a=pop;%0=(),@0{/./g}=s/[$a]//g,$n+=keys%0for<>;print$n' as < test Ronald ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe