计算机程序的构造和解释 练习 1.11

来源:互联网 发布:登录新熊片数据库 编辑:程序博客网 时间:2024/05/19 12:41
;: 递规版本(define (f n)  (if (< n 3)      n      (+ (f (- n 1))         (f (- n 2))         (f (- n 3)))))
;: 迭代(define (f n)  (define (f-it a b c n)    (cond ((= n 1) a)          ((= n 2) b)          ((= n 3) c)          (else           (f-it b c (+ a b c) (- n 1)))))  (f-it 1 2 3 n))
0 0
原创粉丝点击