Anonymous user
Factors of an integer: Difference between revisions
no edit summary
(added PowerShell) |
No edit summary |
||
Line 6:
See also:
* [[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}}==
| |||