11 lines
179 B
Text
11 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))))
|