F#:减少此功能

Question

考虑以下代码:

scores |> Map.fold (fun state key value ->
                    state + (findCoefficient conversion.Coefficients key) * value) 
                   0m

findCoefficient返回一个小数， scores是一个 Map<string, decimal>
现在，当我在Visual Studio中编写这段代码时，F#Power Tools会给我以下建议/警告:

Lint: If no mutable arguments are partially applied in the chain of function calls, then the function calls and lambda could be replace with composition. e.g. fun -> x |> isValid |> not could be replaced with isValid >> not

在这种情况下，我该怎么办？

Answer 1

这是短毛猫的一个可怕建议，但它遵循有效的推理。

我将原始代码段中的conversion.Coefficient替换为短一点:

scores |> Map.fold (fun state key value ->
  state + (findCoefficient coeff key) * value) 0m

当您在F#中使用二进制运算符(例如 a + b)时，可以将其重写为函数应用程序 (+) a b，因此我们可以将上述代码重写为:

scores |> Map.fold (fun state key value ->
  (+) state ((*) (findCoefficient coeff key) value)) 0m

现在，这只是一个嵌套函数应用程序，因此我们可以使用 |>重写它:

scores |> Map.fold (fun state key value ->
  value |> (*) (findCoefficient coeff key) |> (+) state) 0m

现在，您可以执行lint建议的操作，即将其转换为功能组合:

scores |> Map.fold (fun state key ->
  (*) (findCoefficient coeff key) >> (+) state) 0m

在实践中，这不是我想写的东西，但是您可以看到棉短绒在其他(合理)情况下遵循的规则在这里适用。但是我建议打开 F# PowerTools问题，建议当函数涉及二进制运算符:-)时，lint不应给出愚蠢的建议。