Changeset 39365 in project

Timestamp:

11/24/20 02:21:41 (2 months ago)

Author:

Kon Lovett

Message:

label intermediate calcs, follow pattern, remove "outer" iter count

Location:

release/5/micro-benchmark/trunk

Files:

• micro-benchmark.egg (modified) (1 diff)
• micro-benchmark.scm (modified) (2 diffs)

release/5/micro-benchmark/trunk/micro-benchmark.egg

@@ -1 +1 @@
 ((synopsis "easily create micro-benchmarks")
- (version "0.0.2")
+ (version "0.0.3")
  (author "David Krentzlin")
  (maintainer "[[kon lovett]]")

release/5/micro-benchmark/trunk/micro-benchmark.scm

@@ -315 +315 @@
       ((per-100ms _) (iterations-per-100ms thunk (secs->ms warmups)))
       ((threshold) (+ (*realtime-microsecs) (secs->ÎŒs seconds))) )
-      (let loop (#;(iterations (the fixnum 0)) (timings (list)))
+      (let loop ((timings (list)))
         (if (< (*realtime-microsecs) threshold)
           (let ((before (*realtime-microsecs)))
-            ;NOTE this will run at least once, so long as per-100ms > 0
             (dotimes (_ per-100ms) (thunk))
-            (let ((after (*realtime-microsecs)))
-              (loop #;(+ iterations per-100ms) (cons (- after before (* per-100ms *iterations-overhead*)) timings))))
-          (map (lambda (i) (/ per-100ms (ÎŒs->secs i))) timings) ) ) ) ) )
+            (let* (
+              (after (*realtime-microsecs))
+              (overhead (* per-100ms *iterations-overhead*))
+              (total-time (- after before overhead)) )
+              (loop (cons total-time timings)) ) )
+          (map (lambda (t) (/ per-100ms (ÎŒs->secs t))) timings) ) ) ) ) )
 
 ;@thunk benchmark procedure
@@ -329 +331 @@
 (define (iterations-per-100ms thunk limit)
   (let* (
-    (before (*realtime-microsecs))
-    (threshold (+ before (ms->ÎŒs limit))) )
+    (threshold (+ (*realtime-microsecs) (ms->ÎŒs limit)))
+    (before (*realtime-microsecs)) )
     (let loop ((iterations (the fixnum 0)))
       (let ((after (*realtime-microsecs)))