sicp/1_12.sch

7 lines
158 B
Scheme

(define (pascal row col)
(cond
((= col 1) 1)
((or (= col 1) (= col row)) 1)
(else (+ (pascal (- row 1) (- col 1))
(pascal (- row 1) col)))))