(defn max [a b]
  (if (> a b) a b))

(defn min [a b]
  (if (> a b) b a))

(defn square [a]
  (* a a))

(defn sum-of-squares [a b c]
  (-
    (+ (square a) (square b) (square c))
    (square (min a (min b c)))))

(print (sum-of-squares 1 2 3))
(print (sum-of-squares 3 1 2))
(print (sum-of-squares 2 3 1))