blob: e92f875fd8b5ade21dda49310f80124a396e94e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module HeavyLifting where
a = fmap (+1) $ read "[1]" :: [Int]
b = (fmap . fmap) (++ "lol") (Just ["Hi,", "Hello"])
c = fmap (*2) (\x -> x - 2)
d =
fmap ((return '1' ++) . show)
(\x -> [x, 1..3])
e :: IO Integer
e = let ioi = readIO "1" :: IO Integer
changed = fmap read $ fmap ("123" ++) $ fmap show ioi
in fmap (*3) changed
|
