ЕИ
Size: a a a
ЕИ
JS
ЕИ
JS
let a' = read a
let b' = read b
putStrLn $ show $ sum' a' b'
ЕИ
let a' = read a
let b' = read b
putStrLn $ show $ sum' a' b'
JS
putStrLn $ show $ sum' (read a) (read b)
JS
ЕИ
к
Prelude> sum' (a :: Int) (b :: Int) = a + b
Prelude> f <| x = f x; infixl 1 <|
Prelude> print $ sum' <| read "1" <| read "2"
3
JS
print $ uncurry sum' $ bimap read read $ (,) a b
JS
Prelude> sum' (a :: Int) (b :: Int) = a + b
Prelude> f <| x = f x; infixl 1 <|
Prelude> print $ sum' <| read "1" <| read "2"
3
print $ read a & sum' $ read b
к
JS
к
к
print $ read a `sum'` read b
JS
JS
ЕИ
print $ read a `sum'` read b
[
JS
print $ read a & sum' $ read b
print $ readMaybe a & liftA2 sum' $ readMaybe b