Proper divisors: Difference between revisions
Added Wren
ReeceGoding (talk | contribs) m (→Filter solution: Clarification) |
(Added Wren) |
||
Line 5,306:
10: {1, 2, 5}
15120: 79</pre>
=={{header|Wren}}==
{{libheader|Wren-fmt}}
{{libheader|Wren-math}}
<lang ecmascript>import "/fmt" for Fmt
import "/math" for Int
for (i in 1..10) System.print("%(Fmt.d(2, i)) -> %(Int.properDivisors(i))")
System.print("\nThe number in the range [1, 20000] with the most proper divisors is:")
var number = 1
var maxDivs = 0
for (i in 2..20000) {
var divs = Int.properDivisors(i).count
if (divs > maxDivs) {
number = i
maxDivs = divs
}
}
System.print("%(number) which has %(maxDivs) proper divisors.")</lang>
{{out}}
<pre>
1 -> []
2 -> [1]
3 -> [1]
4 -> [1, 2]
5 -> [1]
6 -> [1, 2, 3]
7 -> [1]
8 -> [1, 2, 4]
9 -> [1, 3]
10 -> [1, 2, 5]
The number in the range [1, 20000] with the most proper divisors is:
15120 which has 79 proper divisors.
</pre>
=={{header|zkl}}==
| |||