码迷,mamicode.com
首页 > 其他好文 > 详细

SICP 1.12

时间:2014-07-20 23:29:02      阅读:363      评论:0      收藏:0      [点我收藏+]

标签:re   c   line   python   ar   new   

解:

(define (pascal n)
  (define (get n i)
    (cond ((<= i 1) 1)
          ((>= i n) 1)
          (else (+ (get (- n 1) (- i 1))
                   (get (- n 1) i)))))
  (define (iter i n)
    (if (<= i n)
        (and (print (get n i))
             (print " ")
             (iter (+ i 1) n))
        #f))
  (define (recurse n)
    (if (> n 0)
        (recurse (- n 1))
        #f)
    (iter 1 n)
    (newline))
  (recurse n))


需要注意递归过程和递归计算过程概念上的区别。

SICP 1.12,布布扣,bubuko.com

SICP 1.12

标签:re   c   line   python   ar   new   

原文地址:http://my.oschina.net/u/1445655/blog/293125

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!