asynchronous - F# 使用异步返回值

Question

我正在尝试学习 F#，但我一直遇到问题。最新的是使用异步。在下面的代码中，我试图运行两个长时间运行的操作并根据结果执行计算，但出现错误“异步不支持 + 运算符”。我试过类型转换等来让它工作，但我没有快速到达任何地方。

有人可以解释一下我哪里出错了。

谢谢。

let SumOfOpFaults =
    async{
        printfn "Getting Sum of Op Faults"
        return query {
            for a in AlarmResult do
            sumBy a.UserFaultTime
        }
    }

let SumOfMcFaults =
    async{
        printfn "Getting Sum of Machine Faults"
        return query {
            for a in AlarmResult do
            sumBy a.MachineFaultTime
        }
    }

[SumOfMcFaults; SumOfOpFaults]
|> Async.Parallel
|> Async.RunSynchronously
|> ignore

let total = SumOfOpFaults + SumOfMcFaults // <---Error Here

Answer 1

SumOfOpFaults定义为 Async<'T> .它永远不会变成 'T所以你不能使用 +稍后再谈。
Async.Parallel转动 Async 的任意序列计算合一 Async并行运行它们并返回一个数组的计算。
Async.RunSynchronously不会通过副作用为您提供结果，而是作为返回值。所以你只需要这样做:

let total =
    [SumOfMcFaults; SumOfOpFaults]
    |> Async.Parallel
    |> Async.RunSynchronously
    |> Array.sum