On Thu, Jan 24, 2002 at 12:10:08PM -0500, Bill -OSX- Jones wrote: > A late Christmas present - 70 strokes... > > #!perl -n > next if(($.%2)||(((length)-1)%2));print"$_" unless((tr/aeiouy//)%2); > > Someone else submit it, my brain is hurting... :(
That doesn't work right... You need to count if the same vowel comes in even numbers. Otherwise you could just write #!perl -n length%2&&y/aeiouy//%2||$.%2||print -Sven -- E = MC ** 2 +- 3db
