(define (Pascal x y)
  (cond ((> y x) (display "error input"))
        ((= x 1) 1)
        ((= x 2) 1)
        ((= y 1) 1)
        ((= x y) 1)
        (else
         (+ (Pascal(- x 1) y) (Pascal (- x 1) (- y 1))
         ))))
posted on 2009-03-10 19:21 lzj520 阅读(188) 评论(0)  编辑  收藏 所属分类: 个人学习日记

只有注册用户登录后才能发表评论。


网站导航: