f# - 如何拆箱异步[]

Question

所以我有一个Async<string> []，对于我的生活，我无法弄清楚如何拆箱！

我从

Job<Result<string>> []

然后我设法得到它

Job<string> []

所以我补充说，Job.toAsync将其转换为异步可能更容易摆脱。不

我现在有

Async<string> []

我正在使用Hopac库

所以我的问题是，我怎么才能得到一个string []

Answer 1

您需要以某种方式运行这些异步，以便每个都返回一个值。最简单的方法是并行运行它们，因为它有一个内置函数 - Async.Parallel. 此函数采用一系列异步并返回数组的异步，然后您可以使用Async.RunSynchronously或类似方式运行它：

let asyncs : Async<string> [] = ...
let results = asyncs |> Async.Parallel |> Async.RunSynchronously

或者，如果您希望它们按顺序运行，您可以一个接一个地运行它们并在执行过程中累积结果。不幸的是，没有内置函数可以执行此操作，因此您必须自己编写代码。像这样的东西：

let runEm asyncs =
   let loop rest resultsSoFar = 
      match rest with
      | x::xs -> 
          async {
             let! r = x
             return! loop xs (r:resultsSoFar)
          }
      | [] -> 
          async { return resultsSoFar }

   async {
     let! ress = loop asyncs [] 
     return ress |> List.reverse
   }

// Usage:
let asyncs : Async<string> [] = ...
let results = runEm asyncs |> Async.RunSynchronously