该功能可以执行吗？

Question

这个功能有没有实现？

foo :: (Monad m, Monad n) => m a -> n a -> (a -> a -> a) -> m (n a) 
foo x y f = ... 

Answer 1

是的，它可以给一个更一般的类型。

foo :: (Functor f, Functor g) => (a -> b -> c) -> f a -> g b -> f (g c) 
foo f fx gy = fmap (\x -> fmap (f x) gy) fx