I
Size: a a a
I
let a _ = async {лучше бы добавили еще один метод, который бы ограничивал максимальное количество задач
Console.WriteLine "start"
do! Async.Sleep (TimeSpan.FromSeconds 3.)
Console.WriteLine "end"
}
let computations = Seq.init 10 a
(computations, 2)
|> Async.Parallel
|> Async.RunSynchronously
|> ignore
оГ
VS
let a _ = async {лучше бы добавили еще один метод, который бы ограничивал максимальное количество задач
Console.WriteLine "start"
do! Async.Sleep (TimeSpan.FromSeconds 3.)
Console.WriteLine "end"
}
let computations = Seq.init 10 a
(computations, 2)
|> Async.Parallel
|> Async.RunSynchronously
|> ignore
VS
I
I
VS
I
VS
VS
I
VS
I
VS
I
I
I