2 lines
78 B
Clojure
2 lines
78 B
Clojure
(defn perfect? [n]
|
|
(= (reduce + (filter #(zero? (rem n %)) (range 1 n))) n))
|
(defn perfect? [n]
|
|
(= (reduce + (filter #(zero? (rem n %)) (range 1 n))) n))
|