Proper divisors: Difference between revisions
Content added Content deleted
m (→{{header|S-BASIC}}: Changed header to S_BASIC so as to match the category) |
m (→{{header|Quackery}}: added link to Factors of an Integer#Quackery) |
||
Line 4,662: | Line 4,662: | ||
=={{header|Quackery}}== |
=={{header|Quackery}}== |
||
Factors is defined at [[Factors of an integer#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 --> [ ) |
<lang Quackery> [ factors -1 split drop ] is properdivisors ( n --> [ ) |
||
10 times [ i^ 1+ properdivisors echo cr ] |
10 times [ i^ 1+ properdivisors echo cr ] |
||
Line 4,692: | Line 4,691: | ||
15120 has 79 proper divisors. |
15120 has 79 proper divisors. |
||
</pre> |
</pre> |
||
=={{header|R}}== |
=={{header|R}}== |