リストをFのリストリストにグループ化する

Question

これで私は迷っています。私はオブジェクトのリストを持っています。各オブジェクトは、その中に一意でないIDとして存在します。私はこのIDでグループ化したいが、私の人生のためにこれを行う方法を理解することはできない。

これは、データがこの

[ { Id = 1 ; Data = "foo" } ; { Id = 1 ; Data = "also foo" } ; { Id = 2 ; Data = "Not foo" } ] 

のように見えるかもしれません、私は

type fooObject = { 
    Id : int 
    Info : string 
} 

let fooObjects: fooObject list 

私は、最終的な結果は次のようになります

let fooObjectsGroupedById : fooObject list list 

のようなものを希望しているものです

[ [{ Id = 1 ; Data = "foo" } ; { Id = 1 ; Data = "also foo" } ] ; [{ Id = 2 ; Data = "Not foo" }]] 

Answer 1

使用List.groupBy：答えを

let groupById fooObjects = 
    List.groupBy (fun foo -> foo.Id) fooObjects 
     |> List.map snd