1 (define pascal
2     (lambda (x y)
3       (cond [(= y 1) 1]
4         [(= x 1) 1]
5         [(= x y) 1]
6         [else (+ (pascal (- x 1) (- y 1))
7                  (pascal (- x 1) y))])))

 

(define pascal
    (lambda (x y)
      (cond [(= y 1) 1]
        [(= x 1) 1]
        [(= x y) 1]
        [else (+ (pascal (- x 1) (- y 1))
                 (pascal (- x 1) y))])))

 

Posted on 2013-02-21 13:47  ASOCS  阅读(101)  评论(0编辑  收藏  举报