Async.Parallel不运行 list |> Async.Parallel |> Async.Ignore |> Async.Start。
创始人
2024-09-21 00:30:24
0

下面是一个解决方法的示例代码:

open System
open System.Threading.Tasks
open System.Threading

let runParallel () =
    let tasks = [|
        Task.Run(fun () -> async {
            printfn "Task 1 started"
            do! Async.Sleep(1000)
            printfn "Task 1 completed"
        } |> Async.Ignore)

        Task.Run(fun () -> async {
            printfn "Task 2 started"
            do! Async.Sleep(2000)
            printfn "Task 2 completed"
        } |> Async.Ignore)

        Task.Run(fun () -> async {
            printfn "Task 3 started"
            do! Async.Sleep(1500)
            printfn "Task 3 completed"
        } |> Async.Ignore)
    |]

    Task.WhenAll(tasks).Wait()

runParallel()

这段代码使用了F#的Task.Run函数创建了三个异步任务,并将它们添加到一个任务数组中。然后使用Task.WhenAll函数等待所有任务完成。通过在每个任务的异步工作中添加适当的延迟和打印语句,可以看到任务是并行执行的。

请注意,这里没有使用Async.Parallel函数,因为它是在F#的async计算表达式中使用的。而在这个例子中,我们使用了C#的TaskTask.Run来达到类似的效果。

相关内容

热门资讯

安装Pillow时遇到了问题:... 遇到这个问题,可能是因为缺少libwebpmux3软件包。解决方法是手动安装libwebpmux3软...
安装React Native时... 当安装React Native时出现构建错误的情况,可以尝试以下解决方法:确保已经安装了最新版本的C...
安装Python库"... 安装Python库"firedrake"的解决方法如下:打开终端或命令提示符(Windows系统)。...
安装Rails时构建webso... 在安装Rails时,如果构建websocket-driver时发生错误,可以尝试以下解决方法:更新系...
安装react-native-... 要安装react-native-onesignal并在应用关闭时仍能接收通知,可以按照以下步骤进行:...
按转换模式过滤日志【%t】。 要按照转换模式过滤日志,可以使用正则表达式来实现。下面是一个示例代码,使用Java语言的Patter...
Apache Nifi在Kub... Apache Nifi可以在Kubernetes上运行,并且已经准备好用于生产环境。下面是一个使用H...
安装ug未能链接到许可证服务器 安装UG未能链接到许可证服务器是UG用户在安装软件时常遇到的问题之一。该问题的解决方法需要技术向的知...
安装React-Scripts... 这是因为React-Scripts使用Facebook工具包中的一些脚本。 joinAdIntere...
安装React Native时... 安装React Native时可能会出现各种错误,下面是一些常见错误和解决方法的代码示例:Error...