使用all with multi argument函数

Question

假设我有一个带有一个参数的函数a和一个带有可能输入的列表b，定义如下：

let a x1 = x1 == 3
let b = [3, 3]

现在我想测试b中的所有值都返回True作为a的参数，我可以使用all函数：

all a b
> True

但是，如果a将采用两个参数并且b将是元组列表，其中元组中的每个值对应于每个参数，我可以执行类似的操作吗？

例如：

let a x1 x2 = x1 == 3 && x2 == 1
let b = [(3,1), (3,1)]
all a b

返回：

<interactive>:1:4:
    Couldn't match expected type `Bool'
           against inferred type `a1 -> Bool'
    In the first argument of `all', namely `a'
    In the expression: all a b
    In the definition of `it': it = all a b

关于如何做到这一点的任何想法？

Answer 1

要将具有两个参数的函数转换为期望一对的函数，请使用

uncurry :: (r -> s -> t) -> (r, s) -> t

那么，怎么样

all (uncurry a) b

？