ЕИ
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"
3JS
print $ uncurry sum' $ bimap read read $ (,) a bJS
Prelude> sum' (a :: Int) (b :: Int) = a + b
Prelude> f <| x = f x; infixl 1 <|
Prelude> print $ sum' <| read "1" <| read "2"
3print $ read a & sum' $ read bк
JS
к
к
print $ read a `sum'` read bJS
JS
ЕИ
print $ read a `sum'` read b[

JS
print $ read a & sum' $ read bprint $ readMaybe a & liftA2 sum' $ readMaybe b