12 lines
252 B
Clojure
12 lines
252 B
Clojure
|
;;; No stack consuming algorithm
|
||
|
|
(defn factors
|
||
|
|
"Return a list of factors of N."
|
||
|
|
([n]
|
||
|
|
(factors n 2 ()))
|
||
|
|
([n k acc]
|
||
|
|
(if (= 1 n)
|
||
|
|
acc
|
||
|
|
(if (= 0 (rem n k))
|
||
|
|
(recur (quot n k) k (cons k acc))
|
||
|
|
(recur n (inc k) acc)))))
|