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