Lingua::Pangram

[Stray Toaster]

On Wed, Jan 23, 2002 at 03:35:08PM +0000, Tony Bowden wrote:
> On Wed, Jan 23, 2002 at 03:16:07PM +0000, Stray Toaster wrote:
> > sub m{1if ord()>64&&ord()<123}foreach(split'',shift){$t{$_}++if m($_)}print %t==26?1:0 
> 
> According the original challenge:
> 
> > Your entries should behave in the same way as the above example: it
> > should print any input lines that are pangrams.
> 
> I'm not convinced yours does that ...

What about....

perl -e 'sub m{1if ord()>64&&ord()<123}foreach(split"",shift){$t{$_}++if
m($_)}print %t==26?1:0' "abcdeghijklnmopqrstuvwxyz"

or have I missed the point again?

m.

-- 
No, I am not laughing with you