Factors of an integer: Difference between revisions
Content added Content deleted
| Line 581: | Line 581: | ||
(into (sorted-set) |
(into (sorted-set) |
||
(mapcat (fn [x] [x (/ n x)]) |
(mapcat (fn [x] [x (/ n x)]) |
||
(filter #(zero? (rem n %)) (range 1 (inc (sqrt n)))) )))</lang> |
(filter #(zero? (rem n %)) (range 1 (inc (Math/sqrt n)))) )))</lang> |
||
Same idea, using for comprehensions. |
Same idea, using for comprehensions. |
||
| Line 587: | Line 587: | ||
(into (sorted-set) |
(into (sorted-set) |
||
(reduce concat |
(reduce concat |
||
(for [x (range 1 (inc (sqrt n))) :when (zero? (rem n x))] |
(for [x (range 1 (inc (Math/sqrt n))) :when (zero? (rem n x))] |
||
[x (/ n x)]))))</lang> |
[x (/ n x)]))))</lang> |
||