Amicable pairs: Difference between revisions
m
→{{header|PL/I-80}}
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
<lang PL/I>
amicable: procedure options (main);
Line 4,227:
8 pairs were found
</pre>
=={{header|PL/M}}==
|