Amicable pairs: Difference between revisions
Add SETL
Not a robot (talk | contribs) (Add SETL) |
|||
Line 6,158:
Amicable pair: 17296 18416
</pre>
=={{header|SETL}}==
<syntaxhighlight lang="setl">program amicable_pairs;
p := propDivSums(20000);
loop for [n,m] in p | n = p(p(n)) and n<m do
print([n,m]);
end loop;
proc propDivSums(n);
divs := {};
loop for i in [1..n] do
loop for j in [i*2, i*3..n] do
divs(j) +:= i;
end loop;
end loop;
return divs;
end proc;
end program;</syntaxhighlight>
{{out}}
<pre>[220 284]
[1184 1210]
[2620 2924]
[5020 5564]
[6232 6368]
[10744 10856]
[12285 14595]
[17296 18416]</pre>
=={{header|Sidef}}==
| |||