1 2 3 4 5 6 7 8
(define (round f n) (let ((x (expt 10 n))) (/ (truncate (+ (* f x) 0.5)) x))) (map (lambda (n) (display (round (/ 1000 7) n)) (newline)) '(3 2 1 0))
1 2 3 4
142.857 142.86 142.9 143.0