Geek-Side

Resource > SICP Exersise 4_4

Exercise 4.4:

 (define (eval-and exp)
   (define (ite conditions)
     (cond [(null? conditions) #t]
 	  [(car conditions) (ite (cdr conditions))]
 	  [else #f]))
   (ite  exp))
 
 (define (eval-or exp)
   (define (ite conditions)
     (cond [(null? conditions) #f]
 	  [(car conditions) #t]
 	  [else (ite (cdr conditions))]))