SICP Exercise 1.3
Saturday, January 24, 2009 10:52:25 PM
(define (abs x)
(cond ((> x 0) x)
((= x 0) 0)
((< x 0) (- x))))
; Exercise 1.3
; Take three numbers and return the sum of
; the squares of the two larger numbers
(define (sq x)
(* x x))
(define (sumqs a b c)
(cond ((and (> a c) (> b c)) (+ (sq a) (sq b)))
))
(sumqs 5 6 1)






