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}}== |