in reply to Re^2: testing number of occurrences in a word
in thread testing number of occurrences in a word
To keep it golfed, either change the caller of the subroutine:
print "$_ is ", (isogram() ? 'not ' : ''), "an isogram\n" for @ARGV;
or, better yet, the subroutine name:
sub not_isogram { # ... } print "$_ is ", (not_isogram() ? '': 'not '), "an isogram\n" for @ARGV +;
|
|---|