capital and small letters by notogawa

import Char
main=interact$(\x->unlines$x#mapM(\c->[toUpper c,toLower c])x).init
a#(b:x)|a==b=b:x|0<1=a#(x++[b])

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

download

return to the top page