1.12|

$ cd ~

SICP Exercise 1.12

Add the values of the adjacent coolumn elements in the row above.

 (define (pascal-triangle row col) 
   (cond ((> col row) 0) 
         ((< col 0) 0) 
         ((= col 1) 1) 
         ((+ (pascal-triangle (- row 1) (- col 1)) 
             (pascal-triangle (- row 1) col)))))