(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 閱讀(202) 評論(0)  編輯  收藏 所屬分類: 個人學(xué)習(xí)日記
          主站蜘蛛池模板: 台江县| 温宿县| 香格里拉县| 崇左市| 监利县| 吉林省| 晋宁县| 济源市| 辛集市| 象山县| 泸水县| 邯郸县| 淳安县| 西峡县| 迭部县| 达尔| 徐州市| 南康市| 颍上县| 临沂市| 瑞昌市| 泰州市| 南澳县| 合山市| 东兰县| 荆门市| 包头市| 平昌县| 西昌市| 随州市| 灯塔市| 富宁县| 新建县| 大名县| 山东省| 七台河市| 勐海县| 朝阳市| 漳浦县| 祁东县| 万州区|