f# - F# 有foldList 函数吗？

Question

Mathematica 或许其他语言也有 foldList 函数。它非常类似于fold，但它不只返回最终计算值，而是返回每个中间值。

在 F# 中编写 foldList 函数并不难:

let foldList f (x: 'S) (m: list<'T>) =
    let fs (xs: list<'S>) (y: 'T) = (f (Seq.head xs) y)::xs
    List.fold fs [x] m
    |> List.rev

let m = [1; 2; -3; 5]

foldList (+) 0 m
// val it : int list = [0; 1; 3; 0; 5]

List.fold (+) 0 m
// val it : int = 5

F#中有这样的函数吗？如果没有，是否有比上面更有效的实现？有没有办法避免调用 List.rev？

Answer 1

是的，这是一个内置函数，它的名字叫List.scan:

let m = [1; 2; -3; 5]

List.scan (+) 0 m;;
//val it : int list = [0; 1; 3; 0; 5]

为了回答有关反转列表的问题，FSharp.Core 中的实现避免使用突变来反转列表。这个可变 API 不公开。可以找到源码here如果你有兴趣。