scheme寫程序訓練

；求三個值，兩兩之間的和的最大值

(define (max-function x y z)

         (define max (if (> (+ x y) (+ x z))(+ x y) (+ x z)))

         (define mid (if (> (+ x y) (+ y z))(+ x y) (+ y z)))

         (define lst (if (> (+ x z) (+ y z))(+ x z) (+ y z)))

         (define maxValue (if (> max mid) max mid))

         (define midValue (if (> maxValue lst) maxValue lst))

         midValue)