e1-3 没有考虑相等的情况

[marcocpt]

(define (e13 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)))
)
)