F # Использование возвращаемых значений от Async

Question

Я пытаюсь изучить F #, но я продолжаю сталкиваться с проблемами. В последнем случае используется async. В приведенном ниже коде я пытаюсь запустить две длительные операции и выполнить вычисление на основе результата, но я получаю сообщение об ошибке «Async не поддерживает оператор +». Я попробовал кастинг и т. Д., Чтобы заставить его работать, но я никуда не гожусь.

Не могли бы вы объяснить, где я ошибаюсь.

Спасибо.

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.RunSynchronously не дает результата по побочным эффектам, а как возвращаемое значение. Поэтому вам просто нужно сделать это:

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