s
Size: a a a
s
ΑZ
TK
ΑZ
TK
X
ΑZ
A = head [] то что дальше? А let s = mapM_ (const (pure "")) [1..]?X
X
p
p
DS
myIO :: IO IntСобственно мы можем заменить любой вызов myIO на полученную выше функцию из старого токена в новый + значение.
myIO = IO $ \token -> let (token1, x) = (unIO readInt) token, (token2, y) = (unIO readInt) token1 in (token2, x + y)
myIORuns :: IO Int
myIORuns = do
x <- myIO
y <- myIO
pure $ x + y
DS
ΑZ
ΑZ
ΑZ
p
TK
p
ΑZ