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

racket-benchmarks: repair for bar plots

Browse Source
This commit is contained in:
Matthew Flatt 2019-05-11 18:48:32 -06:00
parent a672ac9907
commit 528da9e815
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-benchmarks/mini-bar-plot/bm.rkt
View File

@ -130,11 +130,11 @@
(find-key (cdr sort-by-ratio/names)))))
(define ((ratio-geo-mean wrt-times) times)
(define sq-ratios
(define ratios
(for/list ([(k v) (in-hash times)])
(expt (/ v (hash-ref wrt-times k)) 2)))
(/ v (hash-ref wrt-times k))))
(hash '|geometric mean|
(sqrt (/ (apply + sq-ratios) (length sq-ratios)))))
(expt (apply * ratios) (/ (length ratios)))))
(define (plot timess
#:key->pict [key->pict (lambda (k) #f)])
@ -151,6 +151,7 @@
(mini-bar-plot names
(map (ratio-geo-mean (hash-ref med-timess geo-mean-impl))
timess)
#:prefix "x"
#:decimal-places 2
#:colors colors
#:key->pict (lambda (s) ((current-t) (format "~a" s))))