Perl Monk, Perl Meditation | |
PerlMonks |
Re^3: testing number of occurrences in a wordby liverpole (Monsignor) |
on Sep 19, 2006 at 16:58 UTC ( [id://573765]=note: print w/replies, xml ) | Need Help?? |
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:
or, better yet, the subroutine name:
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
In Section
Seekers of Perl Wisdom
|
|