Sum of divisors: Difference between revisions
Content added Content deleted
(add PicoLisp) |
|||
Line 1,253: | Line 1,253: | ||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span> |
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span> |
||
<!--</lang>--> |
<!--</lang>--> |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(de propdiv (N) |
|||
(let S 0 |
|||
(for X N |
|||
(and (=0 (% N X)) (inc 'S X)) ) |
|||
S ) ) |
|||
(do 10 |
|||
(do 10 |
|||
(prin (align 4 (propdiv (inc (0))))) ) |
|||
(prinl) )</lang> |
|||
{{out}} |
|||
<pre> |
|||
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|PL/M}}== |
=={{header|PL/M}}== |