> 1) y/aeiouyAEIOUY// > 2) y/a-zA-Z0-9// > 3) -np (sic) > Changing to: > 1) lc=~y/aeiouy// > 2) s/\w/$&/g > 3) -p
I used y/vowels// thing too. I tested lc=~y/// not to work at all. It was humiliating to find out after the competition that I had done that test with wrong version of perl (5.6.0). On the other hand, I think I have shortest submission that is backwards portable. ;) y/@-z0-9// would have been so much better way to write s/\w/$&/g or y/A-Za-z0-9//, at least if only the rules would have allowed words without single letter / number. I think there ought to be script that tries to if any of the letters can be removed and tests still run. It often happens that there are some extra letters such as -np or ; at end or one pair of unneccessary parenthesis or... Also, I should have invented v47, v0 x3 or 0.0.0. -- Marko P. Nippula <[EMAIL PROTECTED]>, http://www.hut.fi/~mnippula/ while($|=$^T*=.9){sub _{@_<99&&($:=$_[0]**2+($;=$_[1]**2))<4?_($:-$;-$;+ $_[-2],2*$_[0]*$_[1]+$_[-1],@_):chr@_/2}for$.(-11..12){$\.=_$_/(9x9)*$^T -1.04,$./(6x9)*$^T-.35for-40..39};$\=~y//~ @-]a-m*-. /c;$\=!print"\e[H"}
