Lingua::Pangram

[Tony Bowden]

On Wed, Jan 23, 2002 at 03:21:32PM +0000, Stray Toaster wrote:

MP: perl -wnle 'sub p{for("a".."z"){return()unless$_[0]=~/$_/i}1}p($_)&&print' 
SR: perl -wnle 'sub p{for("a".."z"){return()unless$_[0]=~/$_/i}print}p($_)'
WD: perl -ne'sub{map$_[0]=~/$_/i,a..z}->($_)==26&&print'
TB: perl -ne'sub p{for$i(a..z){/$i/i||return}print}p'
 
> Surely it ain't getting smaller than *that*??

Not so sure. I still don't like the construction of it too much.
Particularly the 'return' and the 'print'. I still think there's a better
way hiding out there somewhere...

> And Steve has also pointed out to me that it was golf, not obfuscation.

A good golf score is rarely unobfuscated :)

Tony