[ create a new paste ] login | about

Link: http://codepad.org/CDYpwYl6    [ raw code | output | fork ]

fisherro - Scheme, pasted on Jan 8:
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))


Output:
1
2
3
4
142.857
142.86
142.9
143.0


Create a new paste based on this one


Comments: