使用没有标签的 Core.Std.List.fold_left

Question

我正在试验 Core 的List.fold_left.

# List.fold_left;;
- : 'a Core.Std.List.t -> init:'b -> f:('b -> 'a -> 'b) -> 'b = <fun>

当我指定标签时它工作正常：

# List.fold_left [1;2;3] ~init:0 ~f:(+);;
- : int = 6                  

但是当我不指定标签时，我得到了不同的结果：

# List.fold_left [1;2;3] 0 (+);;
- : init:(int -> (int -> int -> int) -> '_a) ->
    f:((int -> (int -> int -> int) -> '_a) ->
       int -> int -> (int -> int -> int) -> '_a) ->
    '_a
= <fun>

其他部分应用程序也会产生非直观类型。为什么我可以在列表参数后添加任意数量的 0？

# List.fold_left [1;2;3] 0;;
- : init:(int -> '_a) -> f:((int -> '_a) -> int -> int -> '_a) -> '_a = <fun>

# List.fold_left [1;2;3] 0 0;;
- : init:(int -> int -> '_a) ->
    f:((int -> int -> '_a) -> int -> int -> int -> '_a) -> '_a
= <fun>

其他一些函数表现出相同的行为：

# let app ~f ~x = f x;;
val app : f:('a -> 'b) -> x:'a -> 'b = <fun>

# app (fun x -> x + 1) 1;;
- : f:('a -> (int -> int) -> int -> 'b) -> x:'a -> 'b = <fun>

但是一些带标签的函数在没有给出标签的情况下应用时能够返回预期的结果。例如：

# List.map;;
- : 'a Core.Std.List.t -> f:('a -> 'b) -> 'b Core.Std.List.t = <fun>

# List.map [1;2;3] (fun x -> x + 1);;
- : int Core.Std.List.t = [2; 3; 4]

为什么有些函数在没有给出标签的情况下应用时返回非直观值，而其他函数按预期工作？

Answer 1

根据手册，您只能省略标签“如果应用程序是完整的（省略所有可选参数）”，但重要的警告“ListLabels.fold_left结果类型为类型变量的函数永远不会被视为完全应用。”

所以既然 core 的fold_left结果类型当然也是一个类型变量，没有标签就不能调用。当你这样做时，位置参数被解释为由 产生的函数的参数fold_left，它仍然等待你提供标记的参数。