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

In these times of economic crisis...

Thread Next
From:
Phil Carmody
Date:
April 26, 2009 01:19
Subject:
In these times of economic crisis...
Message ID:
914328.74668.qm@web25407.mail.ukl.yahoo.com

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?

Phil
-- 
()  ASCII ribbon campaign      ()    Hopeless ribbon campaign
/\    against HTML mail        /\  against gratuitous bloodshed

[stolen with permission from Daniel B. Cristofani]


      

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