RE: shortest

[myocom]

in reply to shortest

At one character less, you could do:

chop($_=<>);for(split('',$_)){print$_.': '.($_%2?"Odd\n":"Even\n")}