Lingua::Pangram
Stray Toaster
mwk at stray-toaster.co.uk
Wed Jan 23 09:21:32 CST 2002
On Wed, Jan 23, 2002 at 03:16:46PM +0000, Tony Bowden wrote:
> On Wed, Jan 23, 2002 at 02:50:31PM +0000, Tony Bowden 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($_)'
> TB: perl -wnle 'sub p{for("a".."z"){$_[0]=~/$_/i||return}print}p($_)'
> TB: perl -ne'sub p{grep$_[0]=~/$_/i,a..z}p($_)==26&&print'
> TB: perl -ne'sub p{for$i(a..z){/$i/i||return}print}p'
Surely it ain't getting smaller than *that*??
And Steve has also pointed out to me that it was golf, not obfuscation.
Not that mine was obfuscated. Whoodcha think I am, Dr. J??
m.
--
What about me? Well, I'll find someone
Who is not going cheap in the sales. A nice little housewife
Who'll give me a steady life
And won't keep going off the rails
More information about the Belfast-pm
mailing list