Amicable pairs: Difference between revisions

m
Line 4,653:
 
==={{header|PL/I-80}}===
Rather than populating an array with the sum of the proper divisors and then searching, the approach here performscalculates anthem directon testthe fly as needed, saving memory, and atavoiding a minimal penalty in execution speed, even though about 25% more calls are madenoticeable tolag sumf()on thanprogram wouldstartup beon requiredthe simplyancient tosystems initializethat anhosted arrayPL/I-80.
<syntaxhighlight lang="pl/i">
amicable: procedure options (main);
211

edits