为什么我在使用Async.Parallel时只有一个线程id？

Question

为什么我在使用Async.Parallel时只有一个处理器id？

代码：

open System
open System.Threading

[for i in 1..10 -> async {return i}] |> Async.Parallel
                                     |> Async.RunSynchronously
                                     |> Seq.iter (fun i -> printfn "Processor Id: %d Value: %d" Thread.CurrentThread.ManagedThreadId i)

输出：

处理器Id: 1值:6处理器Id: 1值:7处理器Id: 1值:8处理器Id: 1值:9处理器Id: 1值:9处理器Id: 1值: 10

val it : unit = ()

> 

Answer 1

在异步工作流之外，您正在从主线程执行printfn。试试这个：

[for i in 1..10 -> 
    async {return sprintf "Processor Id: %d Value: %d" Thread.CurrentThread.ManagedThreadId i}] 
|> Async.Parallel
|> Async.RunSynchronously