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]