(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)  編輯  收藏 所屬分類: 個人學習日記
          主站蜘蛛池模板: 大城县| 新化县| 漠河县| 苏尼特右旗| 兴安盟| 余庆县| 永丰县| 社会| 莱西市| 井陉县| 偏关县| 固阳县| 保康县| 定远县| 灌云县| 定兴县| 金坛市| 涿鹿县| 聂荣县| 沙湾县| 开远市| 大英县| 岱山县| 新绛县| 甘洛县| 无棣县| 兴城市| 通渭县| 郯城县| 新巴尔虎左旗| 台中市| 罗平县| 西乌珠穆沁旗| 隆化县| 滁州市| 霞浦县| 隆子县| 隆尧县| 寻甸| 松桃| 留坝县|