Lingua::Pangram

Steve Rushe steve-pmbelfast at blackstar.co.uk
Wed Jan 23 08:14:23 CST 2002


On Wed, Jan 23, 2002 at 01:51:56PM +0000, Marty Pauley wrote:
> To start, a modified version of Russell's code at 74 strokes:
> 
> perl -wnle 'sub p{for("a".."z"){return()unless$_[0]=~/$_/i}1}p($_)&&print'

Well a tad shorter, just by rearranging

  perl -wnle 'sub p{for("a".."z"){return()unless$_[0]=~/$_/i}print}p($_)'

71 characters. I guess this will get a lot shorter.

Steve

-- 
Steve Rushe - www.deeden.co.uk

Infamy, infamy, they've all got it in for me!



More information about the Belfast-pm mailing list