f # chuỗi tổng số đang chạy

Question

Ok, điều này có vẻ như nó phải dễ dàng, nhưng tôi chỉ không nhận được nó. Nếu tôi có một chuỗi các số, làm cách nào để tạo một chuỗi mới được tạo thành từ các tổng số đang chạy? ví dụ cho một chuỗi [1; 2; 3; 4], tôi muốn ánh xạ nó tới [1; 3; 6; 10]. Trong một cách phù hợp chức năng.

Answer 1

Sử dụng List.scan:

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

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

Seq.scan dựa trên thực hiện:

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

Với danh sách:

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

Edit: Một cách khác với trình tự:

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

Vâng, có một biến có thể thay đổi, nhưng tôi thấy nó dễ đọc hơn (nếu bạn muốn nhận được thoát khỏi hàng đầu 0).

Answer 3

Không chắc đây là cách tốt nhất nhưng nó phải làm các trick

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

biến thể khác sử dụng Seq.scan (Seq.skip 1 loại bỏ hàng đầu số không):

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