alternating case lines by nomeata

import Char\x0d
(#)=map\x0d
f(x:y:z)=toUpper#x:toLower#y:f z\x0d
f[]=[]\x0d
main=interact$unlines.f.lines

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page