Amicable pairs: Difference between revisions
Content deleted Content added
| Line 4,165: | Line 4,165: | ||
==={{header|PL/I-80}}=== |
==={{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 |
Rather than populating an array with the sums of the proper divisors preparatory to a search, the approach here performs an 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> |
<lang PL/I> |
||
amicable: procedure options (main); |
amicable: procedure options (main); |
||
| Line 4,227: | Line 4,227: | ||
8 pairs were found |
8 pairs were found |
||
</pre> |
</pre> |
||
=={{header|PL/M}}== |
=={{header|PL/M}}== |
||