Anonymous user
Super-d numbers: Difference between revisions
m
→{{header|REXX}}: changed a glyph in some comments.
m (→{{header|REXX}}: added/changed whitespace and comments.) |
m (→{{header|REXX}}: changed a glyph in some comments.) |
||
Line 366:
=={{header|REXX}}==
<lang rexx>/*REXX program computes and displays the first N
numeric digits 100 /*ensure enough decimal digs for calc. */
parse arg n LO HI . /*obtain optional arguments from the CL*/
if n=='' | n=="," then n= 10 /*the number of
if LO=='' | LO=="," then LO= 2 /*low end of D for the
if HI=='' | HI=="," then HI= 9 /*high " " " " " " " */
/* [↓] process D from LO ──► HI. */
do d=LO for HI-1; #= 0;
z= copies(d, d) /*the string that is being searched for*/
do j=2 until #==n /*search for
if pos(z, d * j**d)==0 then iterate /*does product have the required reps? */
#= # + 1; $= $ j /*bump counter; add the number to list*/
|