codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
; 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)
Private
[
?
]
Run code
Submit