diff --git a/internal-latency-prospect.rkt b/internal-latency-prospect.rkt index f15827c..1e2a716 100644 --- a/internal-latency-prospect.rkt +++ b/internal-latency-prospect.rkt @@ -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) diff --git a/internal-latency-symbols-not-fixnums.rkt b/internal-latency-symbols-not-fixnums.rkt index c32236a..ecbf68d 100644 --- a/internal-latency-symbols-not-fixnums.rkt +++ b/internal-latency-symbols-not-fixnums.rkt @@ -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) diff --git a/internal-latency.rkt b/internal-latency.rkt index 0b5d95e..0fc3eb2 100644 --- a/internal-latency.rkt +++ b/internal-latency.rkt @@ -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)