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))) ) )