Исправление Debasher, 23.12.14 19:37 (текущая версия) :
(fn [& numbers] (apply + (map #(* % %) (-> numbers sort rest))))
Исходная версия Debasher, 23.12.14 19:37:
(fn [& numbers ] (apply + (map #(* % %) (-> numbers sort rest))))