Anonymous user
Factors of an integer: Difference between revisions
solved for maxscript
(solved for maxscript) |
|||
Line 1,546:
setify(makelist(fac[1]^i, i, 0, fac[2]))),
ifactors(n))));</lang>
=={{header|MAXScript}}==
<lang MAXScript>
fn factors n =
(
return (for i = 1 to n+1 where mod n i == 0 collect i)
)
</lang>
Output:
<lang MAXScript>
factors 3
#(1, 3)
factors 7
#(1, 7)
factors 14
#(1, 2, 7, 14)
factors 60
#(1, 2, 3, 4, 5, 6, 10, 12, 15, 20, 30, 60)
factors 54
#(1, 2, 3, 6, 9, 18, 27, 54)
</lang>
=={{header|Mercury}}==
| |||