Proper divisors: Difference between revisions
Added Quackery.
m (→{{header|AppleScript}}: Idiomatic: Minor edit in handler.) |
(Added Quackery.) |
||
Line 4,621:
Example of maximum divisor count in the range [1..20000]:
(15120, 79)</pre>
=={{header|Quackery}}==
<lang Quackery> [ $ "rosetta/factors.qky" loadfile ] now!
( i.e. using the Quackery code at http://rosettacode.org/wiki/Factors_of_an_integer )
[ factors -1 split drop ] is properdivisors ( n --> [ )
10 times [ i^ 1+ properdivisors echo cr ]
0 0
20000 times
[ i^ 1+ properdivisors size
2dup < iff
[ dip [ 2drop i^ 1+ ] ]
else drop ]
swap echo say " has "
echo say " proper divisors." cr</lang>
{{out}}
<pre>[ ]
[ 1 ]
[ 1 ]
[ 1 2 ]
[ 1 ]
[ 1 2 3 ]
[ 1 ]
[ 1 2 4 ]
[ 1 3 ]
[ 1 2 5 ]
15120 has 79 proper divisors.
</pre>
=={{header|R}}==
| |||