Ответ 1
Позвольте перейти к моноидальному виду Applicative
:
unit :: () -> f ()
mult :: (f s, f t) -> f (s, t)
pure :: x -> f x
pure x = fmap (const x) (unit ())
(<*>) :: f (s -> t) -> f s -> f t
ff <*> fs = fmap (uncurry ($)) (mult (ff, fs))
Для строго моноидального функтора unit
и mult
должны быть изоморфизмами. Влияние "слабых" заключается в том, чтобы отказаться от этого требования.
Например, (до обычной наивности) (->) a
строго моноидальна, но []
является только слабой моноидальной.