U E D R , A S I H C RSS

파스칼삼각형/김남훈

(define (pascal r c)
  (cond ((= c 1) 1)
	((= r c) 1)
	(else (+ (pascal (- r 1) c)
		 (pascal (- r 1) (- c 1))))))

문제는 내가 scheme 시스템에서 stdin stdout 을 어떻게 다루는지 몰라서 그냥 함수만 만들었다는 점.

Valid XHTML 1.0! Valid CSS! powered by MoniWiki
last modified 2021-02-07 05:31:22
Processing time 0.0109 sec