Amicable pairs: Difference between revisions
Easylang
Recombinant (talk | contribs) m (Zig now before zkl) |
(Easylang) |
||
Line 2,071:
12285, 14595
17296, 18416</pre>
=={{header|EasyLang}}==
{{trans|Lua}}
<syntaxhighlight lang="easylang">
proc sumdivs n . sum .
sum = 1
for d = 2 to sqrt n
if n mod d = 0
sum += d + n div d
.
.
.
for n = 1 to 20000
call sumdivs n m
if m > n
call sumdivs m h
if h = n
print n & " " & m
.
.
.
</syntaxhighlight>
=={{header|EchoLisp}}==
| |||