(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 閱讀(197) 評論(0)  編輯  收藏 所屬分類: 個人學習日記
          主站蜘蛛池模板: 于都县| 和硕县| 延边| 盐亭县| 武宁县| 广州市| 双城市| 上栗县| 平顺县| 民乐县| 安岳县| 如皋市| 周至县| 富裕县| 江口县| 开封县| 同心县| 诏安县| 中宁县| 乌拉特前旗| 迁安市| 通河县| 宁津县| 雷州市| 麻栗坡县| 裕民县| 昌平区| 承德县| 抚顺县| 任丘市| 临沭县| 绩溪县| 津市市| 安溪县| 余江县| 广宗县| 米脂县| 舞阳县| 诸城市| 巨鹿县| 石屏县|