Lingua::Pangram

[Marty Pauley]

On Wed Jan 23 15:40:04 2002, Marty Pauley wrote:
> On Wed Jan 23 15:16:46 2002, 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'
> 
> No shorter, but weirder:
>   MP: perl -ne'sub p{/$l/i&&p(++$l)+1}$l=a;p>25&&print'

And if we insist on strictness:
MP: perl -Mstrict -ne'sub p{/$a/i&&p(++$a)+1}$a="a";p>25&&print'

-- 
Marty
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 220 bytes
Desc: not available
Url : http://mail.pm.org/archives/belfast-pm/attachments/20020123/5fb0ec27/attachment.bin