[
а пишешь ты в ST-монаде?
Size: a a a
2021 July 15
DI
да
[
...которую надо из кучи биндов рассахарить в тривиальный си-код
[
напоминаю, что
это
x <- foo
y <- bar
baz x y
это
foo >>= \x -> bar >>= \y -> baz x y
DB
Гений
YS
Не ну а вдруг ты забыл
DB
А ну да
[
и по всему этому хаскель бегает с vtable
АД
Да есть.
Если newtype:
onDecodeJpeg Interpreters.GD src/Interpreters/GD.hs:(35,3)-(47,37) 23.8 89.8
Если Dynamic:
onDecodeJpeg Interpreters.GD src/Interpreters/GD.hs:(32,3)-(43,68) 28183 0 0.0 0.0 0.0 0.0
Если newtype:
onDecodeJpeg Interpreters.GD src/Interpreters/GD.hs:(35,3)-(47,37) 23.8 89.8
Если Dynamic:
onDecodeJpeg Interpreters.GD src/Interpreters/GD.hs:(32,3)-(43,68) 28183 0 0.0 0.0 0.0 0.0
АД
Вариант с Dynamic: https://github.com/alexd1971/imps/blob/2-free-monad/src/Interpreters/GD.hs
Вариант с newtype: https://github.com/alexd1971/imps/blob/remove_dynamic/src/Interpreters/GD.hs
Вариант с newtype: https://github.com/alexd1971/imps/blob/remove_dynamic/src/Interpreters/GD.hs
J
favour: user has been CAS banned