RosettaCodeData/Task/Perfect-numbers/Clojure/perfect-numbers-3.clj

3 lines
78 B
Clojure
Raw Permalink Normal View History

2016-12-05 22:15:40 +01:00
(defn perfect? [n]
(= (reduce + (filter #(zero? (rem n %)) (range 1 n))) n))