Proper divisors: Difference between revisions
Added 11l
m (→{{header|Phix}}: factors() now allows 0) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 26:
* [[Prime decomposition]]
<br><br>
=={{header|11l}}==
{{trans|Python}}
<lang 11l>F proper_divs(n)
R Array(Set((1 .. (n + 1) I/ 2).filter(x -> @n % x == 0 & @n != x)))
print((1..10).map(n -> proper_divs(n)))
V (n, leng) = max(((1..20000).map(n -> (n, proper_divs(n).len))), key' pd -> pd[1])
print(n‘ ’leng)</lang>
{{out}}
<pre>
[[], [1], [1], [1, 2], [1], [1, 2, 3], [1], [1, 2, 4], [1, 3], [1, 2, 5]]
15120 79
</pre>
=={{header|360 Assembly}}==
| |||