[ create a new paste ] login | about

Project: programmingpraxis
Link: http://programmingpraxis.codepad.org/wGEsn794    [ raw code | output | fork ]

programmingpraxis - Scheme, pasted on Nov 5:
1
2
3
4
5
6
7
8
9
10
11
12
13
; fix something annoying

(define old-round round)

(define (round x . args)
  (if (null? args) (old-round x)
    (let* ((ten (expt 10 (car args))))
      (/ (old-round (* x ten)) ten))))

(display (round 123.4567)) (newline)
(display (round 123.4567 2)) (newline)
(display (round 12345.67 -2)) (newline)
(display (round -123.4567 2)) (newline)


Output:
1
2
3
4
123.0
123.46
12300.0
-123.46


Create a new paste based on this one


Comments: