You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
479 B
27 lines
479 B
module WarmingUp where |
|
|
|
import Data.Char |
|
|
|
cap :: [Char] -> [Char] |
|
cap = map toUpper |
|
|
|
rev :: [Char] -> [Char] |
|
rev = reverse |
|
|
|
composed :: [Char] -> [Char] |
|
composed = rev . cap |
|
|
|
fmapped :: [Char] -> [Char] |
|
fmapped = fmap cap rev |
|
|
|
tupled :: [Char] -> ([Char],[Char]) |
|
tupled = (,) <$> cap <*> rev |
|
|
|
tupled' :: [Char] -> ([Char], [Char]) |
|
tupled' = do |
|
a <- cap |
|
b <- rev |
|
return (a, b) |
|
|
|
tupled'' :: [Char] -> ([Char],[Char]) |
|
tupled'' = cap >>= \a -> rev >>= \b -> return (a,b)
|
|
|