codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
; magic 1089 (define (rev n) (let loop ((n n) (x 0)) (if (zero? n) x (loop (quotient n 10) (+ (* x 10) (modulo n 10)))))) (define (magic n) (let ((d (- n (rev n)))) (+ d (rev d)))) (display (magic 532)) (newline) (display (magic 235)) (newline) (display (magic 854)) (newline)
Private
[
?
]
Run code
Submit