Perfect numbers: Difference between revisions
Content added Content deleted
m (→Classic REXX version of ooRexx: changed a comment.) |
m (→Classic REXX version of PL/I: changed a comment.) |
||
Line 1,691: | Line 1,691: | ||
===Classic REXX version of PL/I=== |
===Classic REXX version of PL/I=== |
||
This version is a Classic REXX version of the PL/I program as of 14-Sep-2013, a REXX '''say''' statement was added to display the perfect numbers. Also, an epilog was written for the re-written function. |
This version is a Classic REXX version of the PL/I program as of 14-Sep-2013, a REXX '''say''' statement was added to display the perfect numbers. Also, an epilog was written for the re-written function. |
||
<lang rexx>/*REXX version of the PL/I program (code was modified |
<lang rexx>/*REXX version of the PL/I program (code was modified to run with Classic REXX). */ |
||
parse arg low high . /*obtain the specified number(s).*/ |
parse arg low high . /*obtain the specified number(s).*/ |
||
if high=='' & low=='' then high=34000000 /*if no args, use a range.*/ |
if high=='' & low=='' then high=34000000 /*if no args, use a range.*/ |