CPU Affinity Test

cpu-affinity-test.fs

open System
open System.Linq
open System.Diagnostics


// change cpu affinity while app is running
// run in debug mode: optimizations off

printfn "Press enter to continue"

Console.ReadKey () |> ignore

let f x = x

for i in 0..10_000_000 do
    let sw = Stopwatch()
    sw.Start()
    for j in 0..1000_000_000 do
        f j |> ignore
    sw.Stop()

    printfn "round %i done, took %d ms" i sw.ElapsedMilliseconds

printfn "Hello from F#"