More actions
imported>nijelprim No edit summary |
imported>nijelprim No edit summary |
||
| Line 1: | Line 1: | ||
(define (pascal r c) | (define (pascal r c) | ||
(cond ((= c 1) 1) | |||
((= r c) 1) | |||
(else (+ (pascal (- r 1) c) | |||
(pascal (- r 1) (- c 1)))))) | |||
---- | |||
[[파스칼삼각형]] | |||
Revision as of 06:55, 4 September 2008
(define (pascal r c) (cond ((= c 1) 1) ((= r c) 1) (else (+ (pascal (- r 1) c) (pascal (- r 1) (- c 1))))))