如何将 function 应用于列表的两个元素 - Haskell

Question

如何将 function 应用于列表的两个元素。 例如：

给定列表[red,star,blue,oval,orange,hexagon]我想将 function 应用于每对functionName(red,star) functionName(blue,oval) functionName(orange,hexagon)

我猜我将不得不使用递归。

Answer 1

是的，方法是定义一个递归 function - 如果输入列表的项目数不均匀，您需要考虑（以及我们不知道的）会发生什么？ 当然，您想如何收集 function 的结果？

假设您只是忽略不均匀列表中的最后一个元素，并且您希望将结果收集到另一个列表中：

applyPairwise :: (a -> a -> b) -> [a] -> [b]
applyPairwise f (a1 : a2 : rest) = f a1 a2 : applyPairwise f rest
applyPairwise _ _ = []

例子：

> applyPairwise (+) [1..5]
[3,7]

Answer 2

作为 Carsten 的回答的补充，有时在函数式编程（或一般编程）中，您可能希望将要执行的任务分成几个子任务。 所以这里有2个任务：

1. 将元素与其邻居配对。
2. 将 function 应用于配对列表。

对于第一个任务，我们可以简单地定义一个 function pairing ，它执行以下操作（并且还假设您要忽略空列表或 singleton 列表）：

pairing :: [a] -> [(a,a)]
pairing []       = []
pairing [x]      = []
pairing (x:y:xs) = (x,y) : pairing xs

例如：

pairing [] == []
pairing [1] == []
pairing [1,2,3,4] == [(1,2),(3,4)]
pairing [1,2,3,4,5] == [(1,2),(3,4)]

Then for task 2, there is an operation in Haskell that applies a function to a list of elements called map (these functions that take a function as an argument are called higher-order functions):

例如：

f x = x^2

map f [0,1,2] == [0,1,4]

所以我们现在可以像这样实现 function applyPairwise ：

applyPairwise :: ((a,a) -> b) -> [a] -> [b]
applyPairwise f xs = map f (pairing xs)

甚至更好地使用组合：

applyPairwise f = map f . pairing