develooper Front page | perl.golf | Postings from April 2009

Re: In these times of economic crisis...

Thread Previous | Thread Next
From:
Phil Carmody
Date:
April 26, 2009 04:08
Subject:
Re: In these times of economic crisis...
Message ID:
117054.38349.qm@web25408.mail.ukl.yahoo.com

--- On Sun, 4/26/09, robert wilson <hotaru@safe-mail.net> wrote:
> Phil Carmody wrote:
> > We need dollar-free golf!
> >
> > In order to answer the question "what ratio of words
> in the SOWPODS wordlist share no letters in common with the
> word mackerel?", I quickly threw this together:
> >
> > perl -ne '$c[m/[mackrel]/]++;}print($c[1]/$.,$/);{' < sowpods 
> >
> > However, there were complaints that it had too many dollar signs.
> >
> > What's the shortest equivalent script which uses no dollar signs at all?
> >

> perl -le 'print+(grep{/[mackrel]/}@w=<>)/@w' < sowpods

Wow!!!

It's obvious in retrospect. It's clear my original was horrifically wasteful, and can at least be shortened to this at the cost of one dollar:
perl -le 'print+(grep{/[mackrel]/}<>)/$.' < sowpods 

Phil


      

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About