Применение списка функций в Haskell

Question

Я написал функцию, которая применяет список функций к элементу.

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

Есть ли лучший способ сделать это?

Answer 1

Вы могли бы использовать:

applyAll l v = fmap ($ v) l 

fmap поднимает функцию над списком ввода (фактически любого функтора). $ имеет тип (a -> b) -> a -> b, поэтому он применяет функцию к заданному значению. ($ v) - это section, который применяет данную функцию к v.

Answer 2

решение Ли является то, что я рекомендовал бы, но это читает, возможно, даже лучше:

import Control.Applicative 

applyAll' fs v = fs <*> pure v 

или

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

Такого рода марок вещи сложнее, чем это необходимо, хотя: мы действительно только нужен список экземпляров Functor, тогда как applyAll' вводит и сразу извлекает из экземпляра Applicative.

Answer 3

Эта функция фактически уже существует как частный случай монадической функции:

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