Prime Factors in Clojure

	(defn prime-factors [n]
	(loop [n n divisor 2 factors []]
	(if (< n 2)
	factors
	(if (= 0 (rem n divisor))
	(recur (/ n divisor) divisor (conj factors divisor))
	(recur n (inc divisor) factors)
	)
	)
	)
	)

view raw prime_factors.clj hosted with ❤ by GitHub