(defn test [x y z]
   (->> [x y z]
     (sort)
     (drop 1)
     (map #(* % %))
     (reduce +)))

(println (test 2 1 4))