InterfaceVsRecord.fsx

// F# call via interface vs. record

type IFace =
    abstract Test: int -> string -> unit

type IRecord = {
    Test: int -> string -> unit
}

let myTest i s =
    ()

let myFace = { new IFace with
    member __.Test i s = myTest i s
}

let myRecord = {
    Test = myTest
}

let profile fn =
    let sw = System.Diagnostics.Stopwatch.StartNew ()
    for i in 1 .. 100000000 do
        fn ()
    printfn "%A" sw.Elapsed

printfn "timing..."
profile (fun () -> myFace.Test 1 "1")
profile (fun () -> myRecord.Test 1 "1")