Lingua::Pangram

Andrew Wilson andrew at soto.kasei.com
Wed Jan 23 09:47:17 CST 2002


On Wed, Jan 23, 2002 at 03:37:54PM +0000, Wesley Darlington wrote:
> 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'
> 
> perl -pe'for$i(a..z){/$i/||undef$_}'

perl -pe'for$i(a..z){/$i/||undef}'

Andrew



More information about the Belfast-pm mailing list