니젤프림과 나젤큐스 : SICP, 1.12

2008년 07월 22일

SICP, 1.12

(define (pascal-triangle row col)
(cond ((< row col) -1)
   ((= col 1) 1)
   ((= col row) 1)
   (else (+ (pascal-triangle (- row 1) col)
       (pascal-triangle (- row 1) (- col 1))))))
;Value: pascal-triangle

(define (pt a b) (pascal-triangle a b))
;Value: pt

(pt 1 1)
;Value: 1

(pt 2 1)
;Value: 1

(pt 2 2)
;Value: 1

(pt 3 1)
;Value: 1

(pt 3 2)
;Value: 2

(pt 3 3)
;Value: 1

(pt 4 2)
;Value: 3

(pt 5 3)
;Value: 6

----

평이했다.
그런데 스킴에서 글자들 위치 정렬해서 출력하는 방법을 모르겠다.

SICP