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

Use more regular waypoints for internal-latency experiments.

This commit is contained in:
Tony Garnock-Jones 2015-03-18 21:29:14 -04:00
parent 04f1b54ac3
commit 38831969be
3 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
internal-latency-prospect.rkt
View File

@ -87,9 +87,12 @@
(void))
;; Real run
(for ((n
(list 1 10 20 30 40 50 60 70 80 90 100 120
150 200 210 220 230 240 250 260 270 280 290 300 400
500 600 700 800 900 1000)
(list* 1 2 5
(let loop ((n 10))
(if (>= n 3000)
'()
(cons (inexact->exact (round n))
(loop (* n (sqrt (sqrt 2))))))))
))
(collect-garbage)
(collect-garbage)

9
internal-latency-symbols-not-fixnums.rkt
View File

@ -88,9 +88,12 @@
(void))
;; Real run
(for ((n
(list 1 10 20 30 40 50 60 70 80 90 100 120
150 200 210 220 230 240 250 260 270 280 290 300 400
500 600 700 800 900 1000)
(list* 1 2 5
(let loop ((n 10))
(if (>= n 3000)
'()
(cons (inexact->exact (round n))
(loop (* n (sqrt (sqrt 2))))))))
))
(collect-garbage)
(collect-garbage)

9
internal-latency.rkt
View File

@ -87,9 +87,12 @@
(void))
;; Real run
(for ((n
(list 1 10 20 30 40 50 60 70 80 90 100 120
150 200 210 220 230 240 250 260 270 280 290 300 400
500 600 700 800 900 1000)
(list* 1 2 5
(let loop ((n 10))
(if (>= n 3000)
'()
(cons (inexact->exact (round n))
(loop (* n (sqrt (sqrt 2))))))))
))
(collect-garbage)
(collect-garbage)