More actions
imported>nijelprim No edit summary |
imported>nijelprim No edit summary |
||
| Line 4: | Line 4: | ||
(else (+ (pascal (- r 1) c) | (else (+ (pascal (- r 1) c) | ||
(pascal (- r 1) (- c 1)))))) | (pascal (- r 1) (- c 1)))))) | ||
---- | |||
문제는 내가 scheme 시스템에서 stdin stdout 을 어떻게 다루는지 몰라서 그냥 함수만 만들었다는 점. | |||
---- | ---- | ||
[[파스칼삼각형]] | [[파스칼삼각형]] | ||
Latest revision as of 07:03, 4 September 2008
(define (pascal r c) (cond ((= c 1) 1) ((= r c) 1) (else (+ (pascal (- r 1) c) (pascal (- r 1) (- c 1))))))
문제는 내가 scheme 시스템에서 stdin stdout 을 어떻게 다루는지 몰라서 그냥 함수만 만들었다는 점.