30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
(define-inline (G->k val)(* val 1e6))
(define start-time (current-milliseconds))
(let loop ((n 0)
(dat (get-free))
(stuff '()))
(let ((bigvec (make-u32vector 200000000)))
(print n " Elapsed time: " (/ (- (current-milliseconds) start-time) 1000) " s "
"Cached: " (k->G (cached dat)) " G "
"Used: " (k->G (used dat)) " G ")
(if (< n num-iter)
(loop (+ n 1)(get-free) (cons bigvec stuff)))))
(exit)
|
|
>
>
>
|
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
(define-inline (G->k val)(* val 1e6))
(define start-time (current-milliseconds))
(let loop ((n 0)
(dat (get-free))
(stuff '()))
(let ((bigvec (make-u32vector 200000000))
(startt (current-milliseconds)))
(print "Value at 100: " (u32vector-ref bigvec 100) " ms to access: " (- (current-milliseconds) startt))
(u32vector-set! bigvec (random 190000000) 111)
(print n " Elapsed time: " (/ (- (current-milliseconds) start-time) 1000) " s "
"Cached: " (k->G (cached dat)) " G "
"Used: " (k->G (used dat)) " G ")
(if (< n num-iter)
(loop (+ n 1)(get-free) (cons bigvec stuff)))))
(exit)
|