19 lines
332 B
Haskell
19 lines
332 B
Haskell
|
module StringManip where
|
||
|
|
|
||
|
|
import Data.Char
|
||
|
|
|
||
|
|
uppercase, lowercase :: String -> String
|
||
|
|
uppercase = map toUpper
|
||
|
|
lowercase = map toLower
|
||
|
|
|
||
|
|
capitalise :: String -> String
|
||
|
|
capitalise x =
|
||
|
|
let capWord (x:xs) = toUpper x : xs
|
||
|
|
in unwords (map capWord (words x))
|
||
|
|
|
||
|
|
yy :: String -> String
|
||
|
|
yy a =
|
||
|
|
let capWord (a:b) = toUpper a : b
|
||
|
|
in a
|
||
|
|
|