AH
Size: a a a
AH
AH
AH
AH
AH
VK
AH
AH
VK
VK
AH
VK
VK
VK
AH
AH
[<GcServer(true)>]
[<MemoryDiagnoser>]
[<MarkdownExporterAttribute.GitHub>]
type AsyncBench () =
[<Benchmark>]
member this.Rec() =
let rec f n = async {
if n > 1000 then return ()
else return! f (n+1)
}
f 0 |> Async.RunSynchronously
[<Benchmark>]
member this.Whild() =
let f() = async {
let mutable n = 0
while n <= 1000 do
n <- n + 1
return ()
}
f() |> Async.RunSynchronously
AH
AH
AH