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

(defn perfect? [n]
  (->> (for [i (range 1 n)] :when (zero? (rem n i))] i)
       (reduce +)
       (= n)))
tasks a-s 2013-04-10 23:57:08 -07:00			`(defn perfect? [n]`
Just another update 2015-02-20 00:35:01 -05:00			`(->> (for [i (range 1 n)] :when (zero? (rem n i))] i)`
			`(reduce +)`
			`(= n)))`