函子在除法上的应用

Question

我的问题可以写在列表的上下文中。我有一个函数的作用类似于:

div' xs n = (*) (1 / n) <$> xs

这可以简化吗?我什么也想不出来。

Answer 1

您可以使用中落运算符^{[Haskell-wiki]}的部分，并编写(/ n)来构建一个将除以n的函数，这意味着您可以实现div'为:

div' :: (Functor f, Fractional a) => f a -> a -> f a
div' xs n = (/ n) <$> xs