10 lines
179 B
Text
10 lines
179 B
Text
(import std.Sys)
|
|
|
|
(let work (fun (x) (sys:sleep (random x (* 2 x)))))
|
|
|
|
(let timer (fun (f) {
|
|
(let start (time))
|
|
(f)
|
|
(- (time) start) }))
|
|
|
|
(print (timer (fun () (work 50))))
|