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

[Rick Delaney <rick.delaney@home.com>]

Keith Calvert Ivey wrote:
> 
> 50:
>   perl -lpe'INIT{$c=pop}$n+=keys%{{/([^$c])()/g}}}{$_=$n' as <test

This is 51, but I throw it out as another variation.

perl -lpe'INIT{$c=pop}$1{$_.$.}=1for/[^$c]/g}{$_=keys%1' as <test


-- 
Rick Delaney
rick.delaney@home.com

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