Anonymous user
Proper divisors: Difference between revisions
m
→version 3: added whitespace.
m (→version 2: updated the output section.) |
m (→version 3: added whitespace.) |
||
Line 4,850:
<lang rexx>/*REXX program finds proper divisors (and count) of integer ranges; finds the max count.*/
parse arg bot top inc range xtra /*obtain optional arguments from the CL*/
if bot=='' | bot=="," then bot=
if top=='' | top=="," then top=
if inc=='' | inc=="," then inc=
if range=='' | range=="," then range=
w= max( length(top), length(bot), length(range)) /*determine the biggest number of these*/
numeric digits max(9, w + 1) /*have enough digits for // operator.*/
| |||