Amicable pairs: Difference between revisions

m
→‎{{header|J}}: cleaner implementation
(→‎{{header|ALGOL 68}}: Simplify and particularly use a better method to calculate the proper divisor sum table)
m (→‎{{header|J}}: cleaner implementation)
Line 2,759:
Amicable pairs:
 
<syntaxhighlight lang="j"> 1 + 0 20000($ #: I.@,) ,(</~@i.@# * (* |:))(=/ +/@properDivisors@>) 1 + i.20000
220 284
1184 1210
6,962

edits