Revision as of 10:43, 14 April 2013 (view source) rosettacode>Paulo Jorente (→‎{{header\|0815}}) ← Older edit		Revision as of 14:00, 14 April 2013 (view source) Yves (talk \| contribs) (→‎{{header\|Clojure}}) Newer edit →
Line 581: (into (sorted-set) (mapcat (fn [x] [x (/ n x)]) (filter #(zero? (rem n %)) (range 1 (inc (Math/sqrt n)))) )))</lang> Same idea, using for comprehensions. Line 587: (into (sorted-set) (reduce concat (for [x (range 1 (inc (Math/sqrt n))) :when (zero? (rem n x))] [x (/ n x)]))))</lang>

Factors of an integer: Difference between revisions

Factors of an integer (view source)