为什么 foldBack 不执行与 fold 相同的副作用？

Question

我正在研究Example of the difference between List.fold and List.foldBack 的答案，试图弄清楚fold 和foldBack 之间的区别。我现在了解应用程序顺序的差异，但是我不理解的副作用有差异。

我使用List.fold 和List.foldBack 进行测试。我的累加器函数基本上等同于::，因此累加顺序很重要。我使用的累加器函数如下：

let f acc x =
  // printfn "Folding %A into %A" x acc  // Side-effect!
  x :: acc

let f2 x acc =
  // printfn "Folding %A into %A" x acc  // Side-effect!
  x :: acc

我从 F# 参考中了解到：

List.fold f [] [1; 2; 3; 4; 5] = (f (f (f (f (f [] 1) 2) 3) 4) 5)

和：

List.foldBack f2 [] [1; 2; 3; 4; 5] = (f2 1 (f2 2 (f2 3 (f2 4 (f2 5 [])))))

两者都应该返回true，并且它们会返回。太好了，我想；我明白它是如何工作的。但为了确保，我取消了 f 和 f2 的副作用行并再次运行 List.fold f 和 List.foldBack f2。 List.fold f [] [1; 2; 3; 4; 5] 的结果，printfn 行未注释：

Folding 1 into []
Folding 2 into [1]
Folding 3 into [2; 1]
Folding 4 into [3; 2; 1]
Folding 5 into [4; 3; 2; 1]
val it : bool = true

List.foldBack f2 [] [1; 2; 3; 4; 5] 的结果，printfn 行未注释：

val it : bool = true

我期待“将 N 折叠到 [列表]”在这两种情况下都会出现。但是List.fold 执行了它的累加器函数的副作用，而List.foldBack 没有。

为什么fold这两种形式的副作用执行有区别？

Answer 1

您的参数顺序错误。

应该是

> List.foldBack f2  [1; 2; 3; 4; 5] [];;
Folding 5 into []
Folding 4 into [5]
Folding 3 into [4; 5]
Folding 2 into [3; 4; 5]
Folding 1 into [2; 3; 4; 5]
val it : int list = [1; 2; 3; 4; 5]