F#查询表达式中使用自定义聚合函数

1. 首先定义自定义聚合函数，例如我们定义一个计算数字平均值的函数：

let avg xs = if Seq.isEmpty xs then 0.0 else Seq.averageBy float xs

2. 然后使用F#查询表达式的into关键字将结果插入到一个元组中，其中第二个元素是自定义聚合函数的结果。例如：

let result = query { for x in source do groupBy x.Key into g select (g.Key, avg g.Values) }

这里使用groupBy将数据按照Key字段进行分组，然后使用自定义聚合函数avg计算Values字段的平均值，并将结果返回到元组中。

完整代码示例：

let source = [("A", 1); ("B", 2); ("A", 3); ("B", 4)]

let avg xs = if Seq.isEmpty xs then 0.0 else Seq.averageBy float xs

let result = query { for x in source do groupBy x.Key into g select (g.Key, avg g.Values) }

for r in result do printfn "%s: %f" r.Item1 r.Item2

输出结果为：

A: 2.000000 B: 3.000000