Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (8 sloc) 239 Bytes
main = do cs <- getContents
putStr $ swapCharAtoa cs
swapCharAtoa :: String -> String
swapCharAtoa cs = concatMap chrAtoa cs
chrAtoa :: Char -> String
chrAtoa 'a' = replicate 1 'A'
chrAtoa 'A' = replicate 1 'a'
chrAtoa c = [c]
Jump to Line
Something went wrong with that request. Please try again.