使用 VB.NET lambda 表达式计算方差

Question

我正在尝试将以下代码转换为

public static double Variance(this IEnumerable<double> source) 
{ 
    double avg = source.Average();
    double d = source.Aggregate(0.0, 
                 (total, next) => total += Math.Pow(next - avg, 2)); 
    return d / (source.Count() - 1);
}

上描述的 方差计算 CodeProject 转换为相应的VB.NET lambda表达式语法，但我陷入了Aggregate函数的转换。

我如何在 VB.NET 中实现该代码？

Answer 1

以下内容仅适用于 VB 10。之前的版本不支持多行 lambda。

Dim d = source.Aggregate(0.0,
    Function(total, next)
        total += (next - avg) ^ 2
        Return total
    End Function)

Function(foo) bar 对应于单语句 lambda (foo) =>; bar 在 C# 中，但您需要此处的多行 lambda，它仅自 VB 10 以来才存在。

但是，我对原始代码持谨慎态度。修改 total 似乎是一个错误，因为没有 Aggregate 重载通过引用传递其参数。所以我建议原始代码是错误的（即使它实际上可以编译），并且正确的解决方案（在 VB 中）如下所示：

Dim d = source.Aggregate(0.0, _
    Function(total, next) total + (next - avg) ^ 2)

此外，这不需要任何多行 lambda，因此也适用于旧版本的 VB。