(define (sum-two a1 a2 a3)
(cond ((and (> a1 a3) (> a2 a3))(+ a1 a2))
((and (> a1 a2) (> a3 a2))(+ a1 a3))
((and (> a2 a1) (> a3 a1))(+ a2 a3)))
)
(sum-two 1 2 3)
运行结果:
5
(define (sum-two a1 a2 a3)
(cond ((and (> a1 a3) (> a2 a3))(+ a1 a2))
((and (> a1 a2) (> a3 a2))(+ a1 a3))
((and (> a2 a1) (> a3 a1))(+ a2 a3)))
)
(sum-two 1 2 3)
5