Anonymous user
Mian-Chowla sequence: Difference between revisions
m
→{{header|REXX}}: used a better array name for readability.
m (→{{header|REXX}}: added/changed comments and whitespace.) |
m (→{{header|REXX}}: used a better array name for readability.) |
||
Line 1,531:
#= 0 /*count of numbers in sequence (so far)*/
$= /*the Mian─Chowla sequence (so far). */
do t=1 until #=HI;
do i=1 for t; if r.i then iterate /*I already rejected? Then ignore it.*/
do j=i for t-i+1; if r.j then iterate /*J " " " " " */
_= i + j /*calculate the sum of I and J. */
if
end /*j*/
end /*i*/
|