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