1.3|

$ cd ~

SICP Exercise 1.3

Find the smallest, then add the other two.

(define (sum a b c)
  (cond ((and (< a b) (< a c))
         (+ (square b) (square c)))
        ((and (< b a) (< b c))
         (+ (square a) (square c)))
        (else (+ (square a) (square b)))))

(define (square x) (* x x))