$_ = <>; my %h; $h{$_}++ for ( split // ); my $not_isog = () = grep $_ > 1, values %h; print "$_ is ", $not_isog ? 'not ' : '', "isog\n";
In reply to Re: testing number of occurrences in a word
by borisz
in thread testing number of occurrences in a word
by jsmith
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |