(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)  編輯  收藏  所屬分類: 個人學習日記 
          

          







          
	    
    




          








          

				

          





    







          
        
	




主站蜘蛛池模板：
凤山市|
南郑县|
博爱县|
白朗县|
九寨沟县|
化德县|
保山市|
平邑县|
安福县|
靖州|
阿鲁科尔沁旗|
白河县|
道孚县|
兴隆县|
丘北县|
桂东县|
宁安市|
永宁县|
浪卡子县|
博客|
武功县|
同心县|
蕉岭县|
平谷区|
葵青区|
合江县|
庄浪县|
扶绥县|
莱州市|
伊金霍洛旗|
金山区|
吴旗县|
长葛市|
靖江市|
河池市|
阿克苏市|
通渭县|
鹤岗市|
米林县|
密山市|
礼泉县|