syndicate-lang
/
minimart-benchmark-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compute inverse too

This commit is contained in:
Tony Garnock-Jones 2015-03-22 19:02:32 -04:00
parent 0a74c19e81
commit cde22db3dd
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
measure-routes.rkt
View File

@ -20,7 +20,10 @@
#:column-spec '(number-of-entries
positive-probes-per-second
negative-probes-per-second
large-positive-per-second)))
large-positive-per-second
seconds-per-positive-probe
seconds-per-negative-probe
seconds-per-large-positive)))
(define *the-routes* #f)
(define *count* 0)
@ -56,7 +59,10 @@
(write-logbook-datum! Tprobe (list *count*
positive-probes-per-second
negative-probes-per-second
large-positive-per-second)))
large-positive-per-second
(/ positive-probes-per-second)
(/ negative-probes-per-second)
(/ large-positive-per-second))))
(record-datapoint!)
(let loop ((next-count 1000))