[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

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



Today around 2:47pm, Rick Delaney hammered out this masterpiece:

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

Just for the record, I started with something similar and abandoned it
for no good reason I see. ;-)

Good work.

-- 
print(join(' ', qw(Casey R. Tweten)));my $sig={mail=>'crt@kiski.net',site=>
'http://home.kiski.net/~crt'};print "\n",'.'x(length($sig->{site})+6),"\n";
print map{$_.': '.$sig->{$_}."\n"}sort{$sig->{$a}cmp$sig->{$b}}keys%{$sig};
my $VERSION = '0.01'; #'patched' by Jerrad Pierce <belg4mit at MIT dot EDU>


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