others/volume1/003.scm


1
2
3
4
5
6
7
8

(define n (read))
(display (string-length (number->string n)))
(display " ")
(define (digitsum n) (if (> n 0)
                         (+ (modulo n 10) (digitsum (quotient n 10)))
                         0))
(display (digitsum n))
(newline)