SICP 练习1.9

add 函数是递归的

add1函数是迭代的

(define (inc x) (+ x 1))
(define (dec x) (- x 1))

(define (add a b)
  (if (= a 0)
    b
    (inc (add (dec a) b))))

(define (add1 a b)
  (if (= a 0)
    b
    (add1 (dec a) (inc b))))