Intermediate Exercism • clojure

Perfect Numbers

Challenge Overview

Determine if a number is perfect, abundant, or deficient based on Nicomachus' (60 - 120 CE) classification scheme for positive integers.

Visit the perfect-numbers exercise on Exercism to read the full instructions and download the exercise files.

Community Solutions

View Community Solutions

The following are the top 3 community solutions by stars:

Solution 1 by @pwentz (⭐ 1) — View on Exercism
Solution 2 by @haus (⭐ 0) — View on Exercism
Solution 3 by @lefperuch (⭐ 0) — View on Exercism

Source: Exercism clojure/perfect-numbers

💡 View Solution

(ns perfect-numbers)

(defn sum-of-factors [n]
  (->> n
       (range 1)
       (filter #(zero? (mod n %)))
       (reduce +)))

(defn classify [n]
  (let [sum-fac-n (sum-of-factors n)]