Factors of an integer: Difference between revisions

Content added Content deleted
(added PowerShell)
No edit summary
Line 6: Line 6:
See also:
See also:
* [[Prime decomposition]]
* [[Prime decomposition]]

=={{header|AutoHotkey}}==

<lang AutoHotkey>msgbox, % factors(45) "`n" factors(53) "`n" factors(64)

Factors(n)
{ Loop, % floor(sqrt(n))
{ v := A_Index = 1 ? 1 "," n : mod(n,A_Index) ? v : v "," A_Index "," n//A_Index
}
Sort, v, N U D,
Return, v
}</lang>
<pre>Output:

1,3,5,9,15,45
1,53
1,2,4,8,16,32,64</pre>


=={{header|Clojure}}==
=={{header|Clojure}}==