toggleCASE by _

import Char
main=interact$(=<<)((toLower,toUpper)#).lines
r@(p,q)#(x:y)|x>'^'=p x:r#y
 |0<1=q x:(q,p)#y
_#_="\n"

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

download

return to the top page