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。

F＃有foldList函数吗？

1 个答案: