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

(defn proper-divisors [n]
  (if (< n 4)
    [1]
    (->> (range 2 (inc (quot n 2)))
         (filter #(zero? (rem n %)))
         (cons 1))))

(defn perfect? [n]
  (= (reduce + (proper-divisors n)) n))
tasks a-s 2013-04-10 23:57:08 -07:00			`(defn proper-divisors [n]`
			`(if (< n 4)`
Just another update 2015-02-20 00:35:01 -05:00			`[1]`
			`(->> (range 2 (inc (quot n 2)))`
			`(filter #(zero? (rem n %)))`
			`(cons 1))))`

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			`(= (reduce + (proper-divisors n)) n))`