在Haskell中应用函数列表

Question

我写了一个函数,它将一个函数列表应用于一个项目.

applyAll :: [a -> b] -> a -> [b]
applyAll [] _ = []
applyAll (f:fs) x = (f x) : (applyAll fs x)

有没有更好的方法呢？

Answer 1

该函数实际上已作为monadic函数的特例出现:

applyAll :: [a -> b] -> a -> [b]
applyAll = sequence

当你把`f`变为`(a - >)时,可能值得指出`[fb] - > f [b]`与`[a - > b] - >(a - > [b])`结合起来)`.(没关系它是无效的语法,它最好的点.) (4认同)

Answer 2

你可以使用:

 applyAll l v = fmap ($ v) l

fmap在输入列表上提升功能(实际上是任何Functor).$具有类型,(a -> b) -> a -> b因此它将函数应用于给定值.($ v)是一个应用给定函数的部分v.

Answer 3

李的解决方案是我推荐的,但这可能更好看:

import Control.Applicative

applyAll' fs v = fs <*> pure v

要么

applyAll'' fs v = fs <*> [v]

但是这种方法使得事情比必要的更复杂:我们实际上只需要Functor列表实例,而applyAll'注入并立即从Applicative实例中提取.