4 lines
108 B
Clojure
4 lines
108 B
Clojure
(defn perfect? [n]
|
|
(->> (for [i (range 1 n)] :when (zero? (rem n i))] i)
|
|
(reduce +)
|
|
(= n)))
|