struct tuples

gistfile1.fs

open System

let run() = 
 for i in 0 .. 10 do
  let size = 10000000 
  GC.Collect()

  let watch = Diagnostics.Stopwatch.StartNew() 
  let mutable arrTuple = Array.init size (fun i -> (i,i)) 
  arrTuple <- [|(0,0)|] 
  watch.Stop() 
  GC.Collect() 
  printfn "Took %A ms" watch.Elapsed.TotalMilliseconds

  watch.Restart() 
  let mutable arrStruct = Array.init size (fun i -> struct (i,i)) 
  arrStruct <- [| struct (0,0)|] 
  watch.Stop() 
  GC.Collect() 
  printfn "Took %A ms" watch.Elapsed.TotalMilliseconds


run()