函数签名

Question

我想创建一个函数map3，给定一个函数f 和一个元组(a, b, c) 将f 应用于元组的每个成员。该函数的预期签名应该是：

('a -> 'b) -> 'a * 'a * 'a -> 'b * 'b * 'b 。

我尝试了几种方法：

> let map3 = fun x -> let f = fun (a, b, c) -> (a, b, c) in f x;;
val map3 : 'a * 'b * 'c -> 'a * 'b * 'c

> let map3 = fun x y -> x (let f = fun (a, b, c) -> (a, b, c) in f y);;
val map3 : x:('a * 'b * 'c -> 'd) -> 'a * 'b * 'c -> 'd

> let map3 = fun (x, y, z) -> let f = fun (a, b, c) -> (a, b, c) in f (x, y, z);; 
val map3 : x:'a * y:'b * z:'c -> 'a * 'b * 'c

我强烈怀疑我没有了解函数签名的实际工作原理。根据what I get，map3 应该有一个输入和一个输出，f 应该将一个三元组作为输入并返回一个三元组。但这显然是错误的。在我尝试实施它的过程中，我错过了什么？

Answer 1

let map3 f (x, y, z) = (f x, f y, f z)

你也可以这样写

let map3 f = fun (x, y, z) -> (f x, f y, f z)

或

let map3 = fun f (x, y, z) -> (f x, f y, f z)

但我更愿意将参数放在左侧。如您所见，第一个版本写起来更短，更容易阅读。