g
requires equality
не мешаетSize: a a a
g
requires equality
не мешаетEV
let transform xs =
xs
|> Seq.groupBy ^ fun x -> x.ParentId
|> Seq.map ^ fun (id, items) ->
let children = items
|> Seq.map ^ fun x -> { Id = x.Id; Children = [] }
|> Seq.toList
{ Id = id; Children = children }
DP
g
DP
DP
АЧ
оГ
АЧ
оГ
VK
VK
ДБ