blob: 6d1617d2702a6741110effac62db228373a0c02a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
(* Anything helper functions that would be imported for each module *)
let print_endline_int i = print_endline (Int.to_string i)
let time f =
let before = Unix.gettimeofday () in
let result = f () in
let after = Unix.gettimeofday () in
print_endline (Printf.sprintf "%f" (after -. before)) ;
result
|