Re^2: testing number of occurrences in a word

49, but then again I suck at golf.

sub isogram {
#234567890#234567890#234567890#234567890#234567890
my%h=map{($_,1)}split//,$_[0];keys%h==length$_[0]
}

print "$_ is ", (isogram($_) ? '' : 'not '), "an isogram\n" for @ARGV;
[download]

Duh, johngg had the right idea, except he wasn't greedy enough (nor was I. What's with the $_[0]? Sheesh.):

sub isogram {
#23456789
/(.).*\1/
}

print "$_ is ", (isogram() ? '' : 'not '), "an isogram\n" for @ARGV;
[download]

That makes for 9.

• another intruder with the mooring in the heart of the Perl

Comment on Re^2: testing number of occurrences in a word Select or Download Code

Replies are listed 'Best First'.
Re^3: testing number of occurrences in a word by liverpole (Monsignor) on Sep 19, 2006 at 16:58 UTC
Very nice, but your logic is reversed. Remember, an isogram does NOT have any letters duplicated. To keep it golfed, either change the caller of the subroutine: `print "$_ is ", (isogram() ? 'not ' : ''), "an isogram\n" for @ARGV;` [download] or, better yet, the subroutine name: `sub not_isogram { # ... } print "$_ is ", (not_isogram() ? '': 'not '), "an isogram\n" for @ARGV +;` [download] s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: testing number of occurrences in a word
by liverpole (Monsignor) on Sep 19, 2006 at 16:58 UTC

isogram

To keep it golfed, either change the caller of the subroutine:

print "$_ is ", (isogram() ? 'not ' : ''), "an isogram\n" for @ARGV;
[download]

or, better yet, the subroutine name:

sub not_isogram {
    # ...
}
print "$_ is ", (not_isogram() ? '': 'not '), "an isogram\n" for @ARGV
+;
[download]

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

[reply]
[d/l]
[select]