Ray Racine
2008-09-21 22:40:12 UTC
fx math is unexpectedly slower.
(define times 100000000)
'std-math
(time
(let ((v (make-vector 2)))
(vector-set! v 1 2)
(do ((n times (- n 1)))
((zero? n) (vector-ref v 1))
(vector-ref v 1))))
'fx-math
(time
(let ((v (make-vector 2)))
(vector-set! v 1 2)
(do ((n times (fx- n 1)))
((fxzero? n) (vector-ref v 1))
(vector-ref v 1))))
(define times 100000000)
'std-math
(time
(let ((v (make-vector 2)))
(vector-set! v 1 2)
(do ((n times (- n 1)))
((zero? n) (vector-ref v 1))
(vector-ref v 1))))
'fx-math
(time
(let ((v (make-vector 2)))
(vector-set! v 1 2)
(do ((n times (fx- n 1)))
((fxzero? n) (vector-ref v 1))
(vector-ref v 1))))