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