7 lines
158 B
Plaintext
7 lines
158 B
Plaintext
|
(define (pascal row col)
|
||
|
|
(cond
|
||
|
|
((= col 1) 1)
|
||
|
|
((or (= col 1) (= col row)) 1)
|
||
|
|
(else (+ (pascal (- row 1) (- col 1))
|
||
|
|
(pascal (- row 1) col)))))
|