gistfile1.txt

let inline min (array:_[]) = 
    let mutable acc = array.[0]
    for i = 1 to array.Length - 1 do
        let curr = array.[i]
        if curr < acc then 
            acc <- curr
    acc


let min2 (array:_[]) = 
    let mutable acc = array.[0]
    for i = 1 to array.Length - 1 do
        let curr = array.[i]
        if curr < acc then 
            acc <- curr
    acc

let min3 (array:int[]) = 
    let mutable acc = array.[0]
    for i = 1 to array.Length - 1 do
        let curr = array.[i]
        if FSharp.Core.Operators.NonStructuralComparison.(<) curr acc then 
            acc <- curr
    acc

#time "on"

let arr = Array.init 1000000 id

for i in 0 .. 100 do Array.min arr |> ignore  // 0.27 seconds
for i in 0 .. 100 do min arr |> ignore  // 0.27 seconds
for i in 0 .. 100 do min2 arr |> ignore  // 13.7 seconds
for i in 0 .. 100 do min3 arr |> ignore  // 0.234 seconds but not generic