Parallel Fsharp vs parallel C++

Question

Ich kopiere eingefügt den parallelen Teil dieser example. Ich habe die Zeit in einem i3-Prozessor gemessen und die Messung war 37563ms. Ich schrieb das gleiche Programm in FSharp wie diese

let rec fib x = if x<2 then x else fib(x-1)+fib(x-2) 
let time_call f = 
let b=System.Environment.TickCount in 
let x = f() in 
System.Environment.TickCount-b 

let fibs() = 
    Async.Parallel[for i in [24;26;41;42]->async{return fib i}]|>Async.RunSynchronously 

[<EntryPoint>] 
let main argv = 
printfn "%A" (time_call fibs) 
0 // return an integer exit code 

Und die Zeit, die ich gemessen war 4735ms. Mache ich etwas falsch oder Fsharp Parallel-Programmierung ist so viel schneller?

Answer 1

fibs/f ist ein Wert in Ihrem Beispiel, keine Funktion. fibs wird berechnet, bevor main startet sogar.

Sie möchten z.B.

let x = printfn "%A" (f()) in 

und

let fibs() =