f＃运行总数

Question

好吧，这看起来应该很容易，但我只是没有得到它。如果我有一系列数字，我如何生成一个由运行总数组成的新序列？例如对于序列[1; 2; 3; 4]，我想将它映射到[1; 3; 6; 10]。以适当的功能方式。

Answer 1

使用List.scan：

let runningTotal = List.scan (+) 0 >> List.tail 

[1; 2; 3; 4] 
|> runningTotal 
|> printfn "%A" 

Seq.scan基于实现：

let runningTotal seq' = (Seq.head seq', Seq.skip 1 seq') ||> Seq.scan (+) 

{ 1..4 } 
|> runningTotal 
|> printfn "%A" 

Answer 2

> Seq.scan (fun acc n -> acc + n) 0 [1;2;3;4];; 
val it : seq<int> = seq [0; 1; 3; 6; ...] 

随着名单：

> [1;2;3;4] |> List.scan (fun acc n -> acc + n) 0 |> List.tail;; 
val it : int list = [1; 3; 6; 10] 

编辑：另一种方式与序列：

let sum s = seq { 
    let x = ref 0 
    for i in s do 
     x := !x + i 
     yield !x 
} 

是的，有一个可变的变量，但我觉得它更具可读性（如果你想获得摆脱领先的0）。

Answer 3

不知道这是最好的方式，但它应该使用Seq.scan做的伎俩

let input = [1; 2; 3; 4] 
    let runningTotal = 
    (input, 0) 
    |> Seq.unfold (fun (list, total) -> 
     match list with 
     | [] -> 
     None 
     | h::t -> 
     let total = total + h 
     total, (t, total) |> Some) 
    |> List.ofSeq 

Answer 4

另一个变化（Seq.skip 1摆脱领先零）：

> {1..4} |> Seq.scan (+) 0 |> Seq.skip 1;; 
val it : seq<int> = seq [1; 3; 6; 10]