riverphoenix

导航

 
(define (sum a b) (+ a b))
(define (sum-two a b c)
  (
   cond ((and (> (sum a b) (sum a c)) (> (sum a b) (sum b c))) (sum a b))
        ((and (> (sum a c) (sum a b)) (> (sum a c) (sum b c))) (sum a c))
        (else (sum b c))
     
   ))
(sum-two 1 2 3)

 

posted on 2013-11-13 23:27  riverphoenix  阅读(117)  评论(0编辑  收藏  举报