Comments on: SICP Problem 1.12 http://www.mbowcock.com/notebook/sicp-problem-1-12/ Tue, 19 Jan 2010 00:33:15 +0000 http://wordpress.org/?v=2.9.2 hourly 1 By: Kalecser http://www.mbowcock.com/notebook/sicp-problem-1-12/comment-page-1/#comment-139 Kalecser Tue, 19 Jan 2010 00:33:15 +0000 http://www.mbowcock.com/?p=102#comment-139 Another version with isEdge procedure. (define (pascalTriangle row col) (if (isEdge row col) 1 (+ (pascalTriangle (- row 1) col) (pascalTriangle (- row 1) (- col 1)) ) ) ) (define (isEdge row col) (or (= col 1) (= row col)) ) Another version with isEdge procedure.

(define (pascalTriangle row col)
(if (isEdge row col)
1
(+
(pascalTriangle (- row 1) col)
(pascalTriangle (- row 1) (- col 1))
)

)
)

(define (isEdge row col)
(or (= col 1) (= row col))
)

]]>