Question

我想运行一些异步工作流程，然后在打印一些结果之前等待它完成，例如：

let dowork n =
    async {
        do printfn "work %d" n
    }

let creatework() =
    async {
        for x in [1..5] do
            Async.Start(dowork x)
    }

Async.RunSynchronously(creatework())    
printfn "finished"

当我运行它时，我希望在打印“完成”之前完成所有dowork调用。但是我得到这样的结果：

工作2 工作3 工作4 工作5 完工作1

我尝试从creatework（）中删除异步，但在运行异步工作流之前打印“已完成”。

在真正的dowork中，程序会执行一些IO，所以我想在继续之前等待最慢的IO完成。

Answer 1

好好回答我自己的问题似乎很蹩脚，但这似乎有效。有人想出更好的东西，所以我可以给他们答案：）

let dowork n =
    async {
        do printfn "work %d" n
    }

let creatework() =
    [1..5] |> Seq.map dowork |> Async.Parallel |> Async.RunSynchronously

creatework()    
printfn "finished"

它提供了各种输出，但到目前为止“完成”总是持续...

Answer 2

我发现使用MailboxProcessor以确保所有副作用（例如printfn）都在同一个线程上发生是很方便的。使用MailboxProcessor.PostAndReply（singleResult）将工作结果（只是要打印的字符串）汇集到同一个同步上下文中，并提供另一个返回聚合值的消息类型。可以使用union来表示这些消息的类型。

如何等待异步完成

2 个答案: