定义一个过程,返回3个数中较大的2个数之和。
(define (sum-max2 a b c)
(cond ((and (< a b) (< a c)) (+ b c))
((and (< b a) (< b c)) (+ a c))
((and (< c a) (< c b)) (+ a b))))
定义一个过程,返回3个数中较大的2个数之和。
(define (sum-max2 a b c)
(cond ((and (< a b) (< a c)) (+ b c))
((and (< b a) (< b c)) (+ a c))
((and (< c a) (< c b)) (+ a b))))