f # sekwencja bieżącej sumy

Question

OK, wygląda na to, że powinno być łatwo, ale po prostu nie rozumiem. Jeśli mam ciąg liczb, w jaki sposób mogę wygenerować nową sekwencję złożoną z działających liczb całkowitych? np. dla sekwencji [1; 2; 3; 4], chcę odwzorować ją na [1; 3; 6; 10]. W odpowiednio funkcjonalny sposób.

Answer 1

Zastosowanie List.scan:

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

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

Seq.scan -na realizacja:

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; ...] 

Z list:

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

Edit: Innym sposobem z sekwencji:

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

Tak, istnieje zmienna zmienny, ale uważam, że bardziej czytelny (jeśli chcesz dostać pozbądź się wiodącego 0).

Answer 3

Nie wiem, to jest najlepszy sposób, ale powinien on rade

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

Kolejna wariacja użyciu Seq.scan (Seq.skip 1 pozbywa się prowadzenia zero):

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