Super-d numbers: Difference between revisions

Content added Content deleted
m (Cut convoluted concurrent code)
m (→‎{{header|REXX}}: changed DO loop from FOR to TO.)
Line 421: Line 421:
if HI=='' | HI=="," then HI= 9 /*high " " " " " " " */
if HI=='' | HI=="," then HI= 9 /*high " " " " " " " */
/* [↓] process D from LO ──► HI. */
/* [↓] process D from LO ──► HI. */
do d=LO for HI-1; #= 0; $= /*count & list of super─d nums (so far)*/
do d=LO to HI; #= 0; $= /*count & list of super─d nums (so far)*/
z= copies(d, d) /*the string that is being searched for*/
z= copies(d, d) /*the string that is being searched for*/
do j=2 until #==n /*search for super─d numbers 'til found*/
do j=2 until #==n /*search for super─d numbers 'til found*/