如何在F#中从Seq.map中获取异步值

open System
open System.Threading.Tasks

// 异步函数，模拟耗时操作
let asyncOperation (value: int) : Async<int> =
    async {
        // 模拟异步操作
        do! Async.Sleep (value * 100) // 这里使用 Async.Sleep 模拟真实的异步操作
        return value * 2
    }

// 主函数
let main () =
    let values = [1; 2; 3; 4; 5]

    // 使用 Seq.map 和 Async.Parallel 进行异步操作
    let asyncResults =
        values
        |> Seq.map asyncOperation
        |> Async.Parallel

    // 等待异步操作完成
    let results = asyncResults |> Async.RunSynchronously

    // 输出结果
    Array.iter (fun result -> printfn "%d" result) results

main ()