Lingua::Pangram

Stray Toaster mwk at stray-toaster.co.uk
Wed Jan 23 09:16:07 CST 2002


On Wed, Jan 23, 2002 at 03:01:26PM +0000, Stray Toaster wrote:
> 
> sub m{1if ord($_)>64&&ord($_)<123}foreach(split'',shift){$true{$_}++if
> m($_)}print %true==26?1:0

It has been pointed out to me that my variables have more than one
letter.

d'oh!!!!!

here it is again...

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

m. 
-- 
It was a two-way thing
Not a three-day fling
No secrets kept
No truths betrayed



More information about the Belfast-pm mailing list