5 lines
145 B
Text
5 lines
145 B
Text
let time_it action arg =
|
|
let start_time = Sys.time () in
|
|
ignore (action arg);
|
|
let finish_time = Sys.time () in
|
|
finish_time -. start_time
|