F＃でのグループ合計 - シーケンスで簡単にリストで可能ですか？

Question

グループID /値のタプルのシーケンスを考えると、（ほとんど私はC＃とLINQでそれを行うのと同じ方法）グループ合計を計算することは簡単でしたが：

let items = ["g1",5; "g2",10; "g1",20] 

let groupsums = 
    items 
    |> Seq.groupBy (fun x -> fst x) 
    |> Seq.map (fun (g, s) -> Seq.fold (fun acc x -> acc + snd x) 0 s) 

しかし、F＃に新しいもの、私はリストと同じようにすることはできません。可変変数を使用する必要があるのですか、リストを使って同じように機能する方法はありますか？

Answer 1

List.groupByは内蔵されていません。組み込み型F＃には、その関数のseq版が割り当てられた関数があります。例えばlist.fs

let inline sumBy f (list : list<_>) = Seq.sumBy f list

からIは、F＃の設計者は一貫性のため、何DRYのためにのために省略するために複製するかについて多くの議論があったかなり確信しています。私は個人的に彼らがドライで立ち往生したいと思います。

「機能的」なList.groupByを作成したい場合は、mapとlistを使用します。

let groupBy list = 
    list 
    |> List.fold (fun group (g, x) -> 
     match group |> Map.tryFind g with 
     | Some(s) -> group |> Map.remove g |> Map.add g (x::s) 
     | None -> group |> Map.add g [x] 
     ) Map.empty 
    |> Map.toList 

let groupsums = groupBy >> List.map (snd >> List.sum) 

合計が必要な場合は、リストをスキップすることができます。

let groupAndSumBy list = 
    list 
    |> List.fold (fun group (g, x) -> 
     match group |> Map.tryFind g with 
     | Some(s) -> group |> Map.remove g |> Map.add g (x + s) 
     | None -> group |> Map.add g x 
     ) Map.empty 
    |> Map.toList 
    |> List.map snd 

出力

> groupsums items;; 
val it : int list = [25; 10] 

> groupAndSumBy items;; 
val it : int list = [25; 10] 

Answer 2

gradbotのソリューションと間違って何もありませんが、私はちょうどそれをシンプルに保つと思いますし、必要なときに戻ってリストに列を変換するSeq.toListを使用しています。ですから、あなたのような定義を書き換えることができます：あなたがあなた自身をロールバックするつもりなら、私は、KVBの提案を使用することになりますが

let groupsums = 
    items 
    |> Seq.groupBy fst 
    |> Seq.toList 
    |> List.map (fun (_,s) -> Seq.sumBy snd s) 

Answer 3

、私はDictionary代わりのMapを使用することをお勧め。私のテストでは、少なくとも400％高速でした。

let groupBy f (list:list<_>) = 
    let dict = Dictionary() 
    for v in list do 
    let k = f v 
    match dict.TryGetValue(k) with 
    | true, l -> dict.[k] <- v :: l 
    | _ -> dict.Add(k, [v]) 
    dict |> Seq.map (|KeyValue|) |> Seq.toList 

または：refのバージョンで

let groupSumBy (list:list<_>) = 
    let dict = Dictionary() 
    for k, v in list do 
    match dict.TryGetValue(k) with 
    | true, n -> dict.[k] <- v + n 
    | _ -> dict.Add(k, v) 
    dict |> Seq.map (|KeyValue|) |> Seq.toList 

：

let groupSumBy (list:list<_>) = 
    let dict = Dictionary() 
    let mutable n = 0 
    for k, v in list do 
    match dict.TryGetValue(k, &n) with 
    | true -> dict.[k] <- v + n 
    | false -> dict.Add(k, v) 
    dict |> Seq.map (|KeyValue|) |> Seq.toList