suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adding normalization display

Browse Source
This commit is contained in:
Jay McCarthy 2010-11-16 16:29:38 -07:00
parent e64f8be932
commit e3153e6d21
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/tests/stress.rkt
View File

@ -70,8 +70,25 @@
#:key (λ (v) (vector-ref v 1)))) #:key (λ (v) (vector-ref v 1))))
(define (stress-display how-many res) (define (stress-display how-many res)
(define-values
(min-cpu min-real min-gc)
(for/fold ([min-cpu +inf.0]
[min-real +inf.0]
[min-gc +inf.0])
([v (in-list res)])
(match-define (vector label cpu real gc) v)
(printf "~a: cpu: ~a real: ~a gc: ~a (averaged over ~a runs)\n"
label cpu real gc how-many)
(values (min min-cpu cpu)
(min min-real real)
(min min-gc gc))))
(define (norm min x)
(if (zero? min)
"inf"
(real->decimal-string (/ x min))))
(printf "Normalized:\n")
(for ([v (in-list res)]) (for ([v (in-list res)])
(match-define (vector label cpu real gc) v) (match-define (vector label cpu real gc) v)
(printf "~a: cpu: ~a real: ~a gc: ~a (averaged over ~a runs)\n" (printf "~a: cpu: ~a real: ~a gc: ~a (averaged over ~a runs)\n"
label cpu real gc how-many)) label (norm min-cpu cpu) (norm min-real real) (norm min-gc gc) how-many))
(newline)) (newline))