将列表分组到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