Amicable pairs: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add SETL |
|||
Line 6,158: | Line 6,158: | ||
Amicable pair: 17296 18416 |
Amicable pair: 17296 18416 |
||
</pre> |
</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}}== |
=={{header|Sidef}}== |