[Date Prev][Date Next][Thread Prev][Thread Next]
[Search]
[Date Index]
[Thread Index]
Re: [FWP] Golf challenge: Scoring a word list
- To: fwp@technofile.org
- Subject: Re: [FWP] Golf challenge: Scoring a word list
- From: "Keith Calvert Ivey" <kcivey@cpcug.org>
- Date: Sun, 25 Feb 2001 16:28:45 -0500
- Comments: Authenticated sender is <kcivey@cpcug.org>
- Delivered-To: irons-bumppo:net-mpfwp@bumppo.net
- In-reply-to: <3A99616A.C6917CD9@home.com>
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
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe