Lingua::Pangram

[Andrew Wilson]

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'

AW: perl -pe'$x=$_;$_=(26==grep$x=~/$_/i,a..z)?$x:""'

is the best I can do.  I see there's lots more entries in so someone's
probably beaten it by now.

cheers

Andrew