Chapter 1, Building Abstractions with Procedures

Section - Procedures and the Processes They Generate

Exercise 1.12


Assuming row and col are greater than one.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
(define (psc row col)
  (cond 
        ((<= col 0) 0)
        ((> col row) 0)
        ((< row 3) 1)
        (else (+
                (psc (- row 1)
                    (- col 1))
                (psc (- row 1)
                    col)
              )
        )
  )
)