Sum of divisors: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add APL) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 810: | Line 810: | ||
<pre>Sum of divisors for the first 100 positive integers: |
<pre>Sum of divisors for the first 100 positive integers: |
||
1 3 4 7 6 12 8 15 13 18 |
1 3 4 7 6 12 8 15 13 18 |
||
12 28 14 24 24 31 18 39 20 42 |
|||
32 36 24 60 31 42 40 56 30 72 |
|||
32 63 48 54 48 91 38 60 56 90 |
|||
42 96 44 84 78 72 48 124 57 93 |
|||
72 98 54 120 72 120 80 90 60 168 |
|||
62 96 104 127 84 144 68 126 96 144 |
|||
72 195 74 114 124 140 96 168 80 186 |
|||
121 126 84 224 108 132 120 180 90 234 |
|||
112 168 128 144 120 252 98 171 156 217</pre> |
|||
=={{header|MAD}}== |
|||
<lang MAD> NORMAL MODE IS INTEGER |
|||
DIMENSION DIVSUM(100) |
|||
THROUGH INIT, FOR I=1, 1, I.G.100 |
|||
INIT DIVSUM(I) = 1 |
|||
THROUGH CALC, FOR D=2, 1, D.G.100 |
|||
THROUGH CALC, FOR M=D, D, M.G.100 |
|||
CALC DIVSUM(M) = DIVSUM(M) + D |
|||
THROUGH SHOW, FOR I=1, 10, I.G.100 |
|||
SHOW PRINT FORMAT F, DIVSUM(I), DIVSUM(I+1), |
|||
0 DIVSUM(I+2), DIVSUM(I+3), DIVSUM(I+4), |
|||
1 DIVSUM(I+5), DIVSUM(I+6), DIVSUM(I+7), |
|||
2 DIVSUM(I+8), DIVSUM(I+9) |
|||
VECTOR VALUES F = $10(I4)*$ |
|||
END OF PROGRAM </lang> |
|||
{{out}} |
|||
<pre> 1 3 4 7 6 12 8 15 13 18 |
|||
12 28 14 24 24 31 18 39 20 42 |
12 28 14 24 24 31 18 39 20 42 |
||
32 36 24 60 31 42 40 56 30 72 |
32 36 24 60 31 42 40 56 30 72 |