18 lines
305 B
Plaintext
18 lines
305 B
Plaintext
(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))
|