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

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

"Casey R. Tweten" wrote:
>  
> 56 characters, including 5 for -le'':
> 
> perl -le'$c=pop;@1{/[^$c\n]/g}=%1=(),$n+=keys%1for<>;print$n' as <test

Thanks, that gives me two more variations.

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

-- 
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