(define (pascal r c) (cond ((= c 1) 1) ((= r c) 1) (else (+ (pascal (- r 1) c) (pascal (- r 1) (- c 1))))))
ë¬¸ì œëŠ” ë‚´ê°€ scheme 시스템ì—�서 stdin stdout ì�„ 어떻게 다루는지 몰ë�¼ì„œ 그냥 함수만 만들었다는 ì �.
(define (pascal r c) (cond ((= c 1) 1) ((= r c) 1) (else (+ (pascal (- r 1) c) (pascal (- r 1) (- c 1))))))