Lingua::Pangram

Tony Bowden tony at kasei.com
Wed Jan 23 08:50:31 CST 2002


On Wed, Jan 23, 2002 at 02:34:17PM +0000, Tony Bowden wrote:
>On Wed, Jan 23, 2002 at 02:14:23PM +0000, Steve Rushe wrote:
>> On Wed, Jan 23, 2002 at 01:51:56PM +0000, Marty Pauley wrote:
>>> To start, a modified version of Russell's code at 74 strokes:
>>>> Well a tad shorter, just by rearranging
>>>>> Same algorithm, shorter version:

Make that:

> 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'

Tony





More information about the Belfast-pm mailing list