More actions
imported>nijelprim No edit summary |
imported>nijelprim No edit summary |
||
| (One intermediate revision by the same user not shown) | |||
| 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)))))) | |||
---- | |||
문제는 내가 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 을 어떻게 다루는지 몰라서 그냥 함수만 만들었다는 점.