7 lines
171 B
OCaml
7 lines
171 B
OCaml
fun time_it (action, arg) = let
|
|
val timer = Timer.startCPUTimer ()
|
|
val _ = action arg
|
|
val times = Timer.checkCPUTimer timer
|
|
in
|
|
Time.+ (#usr times, #sys times)
|
|
end
|