Solution to 4.33. This had been difficult to get right, though conceptually it was

[sicp.git] / src / sicp / ex2_36.scm

(define (foobar x)
  (cond
   ((= x 1) 1)
   ((= x 2) 1)
   (else (+ (foobar (- x 1))
            (foobar (- x 2))))))