λ
exists a b. (a -> b -> x) (f a) (g b)Size: a a a
λ
exists a b. (a -> b -> x) (f a) (g b)ЗП
forall a b. (a -> b -> x) -> f a -> g bλ
forall a b. (a -> b -> x) -> f a -> g bλ
VY
VY
ЗП
ЗП
VY
data не нуженKV
for_ e0 \v0 ->но вот вчера увидел решение на основе day convolution и не понял ничего совсем
for_ e1 \v1 ->
for_ e2 \v2 ->
b v0 v1 v2
for_ (e0 <⊗> e1 <⊗> e2) \(v0 /\ v1 /\ v2) ->
b v0 v1 v2
VY
KV
VY
e0 :: a -> Maybe b
e1 :: b -> Maybe cfor_ e0 \v0 ->
for_ e1 \v1 ->
for_ e2 \v2 ->
b v0 v1 v2
VY
VY
for_ :))ЗП
for_ :))/\ это есть Tuple - лишний конструкторKV
ЗП