关闭

SICP 1.11-1.13

标签: SICP计算机程序构造和解释答案
42人阅读 评论(0) 收藏 举报
分类:

习题1.11
1.递归算法

(define (f n)
        (if (< n 3)
            n
            (+ (f (- n 1))
               (* 2
                  (f (- n 2)))
               (* 3
                  (f (- n 3))))))

2.迭代算法

(define (f n)
  (define (f-iter n1 n2 n3 step-count)
     (if (< step-count 0)
         n3
         (f-iter n2
                 n3
                 (+ (* 3 n1)
                    (* 2 n2)
                    n3)
                 (- step-count 1))))
  (if (< n 3)
      n
      (f-iter 0 1 2 (- n 3)))) ;此处已经进行了前3次运算,所以减3

习题1.12

(define (pascal row col)
  (cond ((or (< col 1)
             (< row 1))
         0)
        ((or (= col 1)
             (= row col)
             (< row 3))
         1)
        (else (+ (pascal (- row 1) (- col 1))
                 (pascal (- row 1) col)))))

习题1.13

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:28161次
    • 积分:700
    • 等级:
    • 排名:千里之外
    • 原创:30篇
    • 转载:50篇
    • 译文:6篇
    • 评论:3条
    最新评论