(define (pt row col)
(cond ((= row col) 1)
((= col 1) 1)
(else (+ (pt (- row 1)(- col 1)) (pt (- row 1) col)))))
SICP 1.12
最新推荐文章于 2017-11-23 01:15:00 发布
(define (pt row col)
(cond ((= row col) 1)
((= col 1) 1)
(else (+ (pt (- row 1)(- col 1)) (pt (- row 1) col)))))