Array.empty benchmark

gistfile1.fs

#time

(*

Without optimization
Real: 00:00:00.765, CPU: 00:00:00.765, GC gen0: 763, gen1: 1, gen2: 0
Real: 00:00:00.781, CPU: 00:00:00.765, GC gen0: 763, gen1: 0, gen2: 0
Real: 00:00:00.767, CPU: 00:00:00.765, GC gen0: 762, gen1: 0, gen2: 0

With optimization
Real: 00:00:00.721, CPU: 00:00:00.734, GC gen0: 477, gen1: 1, gen2: 0
Real: 00:00:00.723, CPU: 00:00:00.718, GC gen0: 477, gen1: 0, gen2: 0
Real: 00:00:00.734, CPU: 00:00:00.734, GC gen0: 477, gen1: 0, gen2: 0

*)

let getArray i =
    match i % 2 with
    | 0 -> [||]
    | _ -> [| 1;2;3|]

let test n =
    let mutable sum = 0
    for i = 0 to n do
        sum <- sum + (getArray i).Length
    sum

printfn "Sum: %i" (test 100000000);;