Amicable pairs: Difference between revisions
Content deleted Content added
→{{header|Sage}}: fix typo |
Not a robot (talk | contribs) Add ABC |
||
Line 439: | Line 439: | ||
</pre> |
</pre> |
||
=={{header|ABC}}== |
|||
<syntaxhighlight lang="abc">HOW TO RETURN proper.divisor.sum.table n: |
|||
PUT {} IN propdivs |
|||
FOR i IN {1..n}: PUT 1 IN propdivs[i] |
|||
FOR i IN {2..floor (n/2)}: |
|||
PUT i+i IN j |
|||
WHILE j<=n: |
|||
PUT propdivs[j] + i IN propdivs[j] |
|||
PUT i + j IN j |
|||
RETURN propdivs |
|||
PUT 20000 IN maximum |
|||
PUT proper.divisor.sum.table maximum IN propdivs |
|||
FOR cand IN {1..maximum}: |
|||
PUT propdivs[cand] IN other |
|||
IF cand<other<maximum AND propdivs[other]=cand: |
|||
WRITE cand, other/</syntaxhighlight> |
|||
{{out}} |
|||
<pre>220 284 |
|||
1184 1210 |
|||
2620 2924 |
|||
5020 5564 |
|||
6232 6368 |
|||
10744 10856 |
|||
12285 14595 |
|||
17296 18416</pre> |
|||
=={{header|Action!}}== |
=={{header|Action!}}== |
||
Calculations on a real Atari 8-bit computer take quite long time. It is recommended to use an emulator capable with increasing speed of Atari CPU. |
Calculations on a real Atari 8-bit computer take quite long time. It is recommended to use an emulator capable with increasing speed of Atari CPU. |