小编Die*_*row的帖子

是否可以编写一个简单的 map 函数，它允许在一个参数上具有多个函数？例如mapmultiple [square, pred] 4 --> [16, 3]

map1 :: (a -> b) -> [a] -> [b]
map1 f [] = []
map1 f (x:xs) = foldr (\y ys -> (f y):ys) [] xs

map1 允许它使用一个函数，但是它如何使用两个或三个函数？