Perfect numbers: Difference between revisions
Content deleted Content added
→{{header|Perl}}: Add module |
m →Classic REXX version of PL/I: removed timing statements. |
||
Line 1,415:
if low=='' then low=1 /*if no LOW, then assume unity.*/
if high=='' then high=low /*if no HIGH, then assume LOW. */
do i=low to high /*process the single # or range. */
if perfect(i) then say i 'is a perfect number.'
end /*i*/
exit
| |||