6 lines
145 B
Text
6 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
|