Re: testing number of occurrences in a word

How about

print
   qq{$word },
     $word =~ m{(.).*?\1}
   ? q{is not }
   : q{is },
   qq{an isogram\n};
[download]

Cheers,

JohnGG

Update: Fixed wonky braces/parentheses, thanks tweetiepooh

Comment on Re: testing number of occurrences in a word Download Code

Replies are listed 'Best First'.
Re^2: testing number of occurrences in a word by tweetiepooh (Hermit) on Sep 19, 2006 at 16:03 UTC
I like this one. I can actually read it. Some of the closing braces/parenthesis don't seem right though.	[reply]
Re^3: testing number of occurrences in a word by johngg (Canon) on Sep 19, 2006 at 22:00 UTC
Yes, well spotted. My excuse is I was rushing off early to play squash, hence the shonky typing. I'll fix it. Cheers, JohnGG	[reply]