关闭

SICP 练习1.9

102人阅读 评论(0) 收藏 举报
分类:

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))))
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:68977次
    • 积分:3695
    • 等级:
    • 排名:第9310名
    • 原创:315篇
    • 转载:3篇
    • 译文:0篇
    • 评论:4条
    文章分类
    最新评论