3 `(let* (start_FIXME (time-ms)
6 (prn (str "Elapsed time: " (- (time-ms) start_FIXME) " msecs"))
10 (fn* [fn max-ms acc-ms last-iters]
11 (let* [start (time-ms)
13 elapsed (- (time-ms) start)
14 iters (+ 1 last-iters)
15 new-acc-ms (+ acc-ms elapsed)]
16 ;(do (prn "new-acc-ms:" new-acc-ms "iters:" iters))
17 (if (>= new-acc-ms max-ms)
19 (run-fn-for* fn max-ms new-acc-ms iters)))))
25 (run-fn-for* fn 1000 0 0)
27 (run-fn-for* fn (* 1000 max-secs) 0 0))))