5

我有一个 F# 类列表，我使用属性来访问数据（我使用的是用 C# 开发的库）。我想按一个属性分组，然后对结果元组的第二项中的每个属性应用一个单独的函数。

例子：

let grouped = list  |> Seq.groupBy (fun x -> x.Year) //group by the year property. Results in Seq<int * seq<myClass>>
                    |> Seq.map (fun (a, b) -> (a, //How to map generic functions to each remaining property in the second tuple?

希望这对某人有意义。我的第二个元组项是由 groupBy 产生的序列。MyClass 中的每个剩余属性都需要应用不同的函数。在过去总结一个属性我刚刚做了类似的事情：

|> Seq.map (fun (a, b) -> (a, b |> Seq.SumBy (fun x -> x.myProperty)))

我想对几个属性使用 Seq.map 做这样的事情。

非常感谢您的帮助，理查德

4

1 回答 1

12

您需要以某种方式指定要使用的属性 - 最简单的方法是创建读取属性的函数列表。假设你的类型是MyType，你可以这样写：

let properties = [ (fun (x:MyType) -> x.MyProperty) ]

构建组后，您可以遍历properties（使用List.map或 F# 列表理解）中的所有属性并计算组values |> Seq.sumBy prop在哪里以及当前属性是：valuesprop

let grouped = 
  list  
  |> Seq.groupBy (fun x -> x.Year) 
  |> Seq.map (fun (key, values) -> 
       (key, [for prop in properties -> values |> Seq.sumBy prop ])

如果您需要使用除 之外的其他聚合函数Seq.sumBy，则可以构建需要运行的聚合操作列表（而不是属性列表）。

let properties = [ "MyPropSum", Seq.sumBy (fun (x:MyType) -> x.MyProperty);
                   "MyProp2Avg", Seq.averageBy (fun (x:MyType) -> x.MyProperty2) ]

为了使进一步的处理更容易，我可能会用结果构建一个字典 - 这可以通过将带有名称-值对的列表传递给dict函数来轻松完成：

let grouped = 
  list  
  |> Seq.groupBy (fun x -> x.Year) 
  |> Seq.map (fun (key, values) -> 
       (key, dict [for name, aggregate in properties -> name, aggregate values ])
于 2013-03-11T14:14:00.443 回答