將列表分組到F＃列表中的列表中

Question

好吧，讓我迷失在這一張上。我有一個對象列表。每個對象都是一個非唯一的ID。我想對這個ID進行分組，但是對於我的生活，我無法弄清楚如何做到這一點。

這是我

type fooObject = { 
    Id : int 
    Info : string 
} 

let fooObjects: fooObject list 

數據可能是這個樣子

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

我想是這樣

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