AK
sync -> async можно
async -> sync нет
Size: a a a
AK
ЗП
AK
AK
Effect на Aff?AK
AK
p
Effect на Aff?ЗП
DR
p
ЗП
ЗП
depthAlg :: forall f a. Foldable f => EnvT a f Int -> Int
depthAlg (EnvT (Tuple e wa)) = 1 + fromMaybe 0 (maximum wa)
ЗП
ЗП
ЗП
ЗП
depthsAlg :: forall f a. Foldable f => Functor f => EnvT a f (Tuple a Int) -> Tuple a Int
depthsAlg = headE &&&& depthAlg
ЗП
depth :: forall f a. Functor f => Foldable f => Cofree f a -> Int
depth = cata depthAlg
ЗП