RosettaCodeData/Task/Time-a-function/F-Sharp/time-a-function.fs

9 lines
219 B
Forth

open System.Diagnostics
let myfunc data =
let timer = new Stopwatch()
timer.Start()
let result = data |> expensive_processing
timer.Stop()
printf "elapsed %d ms" timer.ElapsedMilliseconds
result