types - 使用不带标签的 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

根据 the manual你只能省略标签“如果一个应用程序是完整的(省略所有可选参数)”，并重要警告“像 ListLabels.fold_left 这样的结果类型是类型变量的功能将永远不会被视为完全应用”

所以既然core的fold_left的结果类型当然也是类型变量，你就不能不带标签调用它。当您这样做时，位置参数被解释为由 fold_left 生成的函数的参数，并且它仍在等待您提供带标签的参数。