On Sun, Feb 25, 2001 at 04:28:45PM -0500, Keith Calvert Ivey wrote: > Rick Delaney <rick.delaney@home.com> wrote: > > > 54: > > perl -lpe'INIT{$c=pop}@1{/[^$c]/g}=%1=(),$n+=keys%1}{$_=$n' as <test > > > > 52: > > perl -lpe'INIT{$c=pop}@1{map$_.$.,/[^$c]/g}=1}{$_=keys%1' as <test > > 50: > perl -lpe'INIT{$c=pop}$n+=keys%{{/([^$c])()/g}}}{$_=$n' as <test > All of these have the same problem as my original solution, which is that they fail when no letters have been guessed and no command line argument is passed to the script. Adding a character in the character class fixes the problem. Ronald ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe