Amicable pairs: Difference between revisions

m
Line 4,165:
 
==={{header|PL/I-80}}===
Rather than populating an array with the sums of the proper divisors preparatory to a search, the approach here performs an immediate direct test, saving memory, and at no observable penalty in execution speed, even though about 25% more calls are made to sumf() than would be required simply to initialize the array.
<lang PL/I>
amicable: procedure options (main);
Line 4,227:
8 pairs were found
</pre>
 
 
 
=={{header|PL/M}}==
211

edits