RosettaCodeData/Task/Time-a-function/OCaml/time-a-function.ml

let time_it action arg =
  let start_time = Sys.time () in
  ignore (action arg);
  let finish_time = Sys.time () in
  finish_time -. start_time