Permuted multiples: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: simplified some code.) |
m (→{{header|REXX}}: changed some comments.) |
||
Line 443: | Line 443: | ||
b= 2*n /*calculate the product of: 2*n */ |
b= 2*n /*calculate the product of: 2*n */ |
||
t= 3*n /* " " " " 3*n */ |
t= 3*n /* " " " " 3*n */ |
||
if verify(t, b)>0 then iterate /* |
if verify(t, b)>0 then iterate /*T doesn't have required digits? Skip*/ |
||
q= 4*n /*calculate the product of: 4*n */ |
q= 4*n /*calculate the product of: 4*n */ |
||
if verify(q, b)>0 then iterate /* |
if verify(q, b)>0 then iterate /*Q doesn't have required digits? Skip*/ |
||
if verify(q, t)>0 then iterate /* |
if verify(q, t)>0 then iterate /*" " " " " " */ |
||
v= 5*n /*calculate the product of: 5*n */ |
v= 5*n /*calculate the product of: 5*n */ |
||
if verify(v, b)<0 then iterate /* |
if verify(v, b)<0 then iterate /*V doesn't have required digits? Skip*/ |
||
if verify(v, t)>0 then iterate /* |
if verify(v, t)>0 then iterate /*" " " " " " */ |
||
if verify(v, q)>0 then iterate /* |
if verify(v, q)>0 then iterate /*" " " " " " */ |
||
s= 6*n /*calculate the product of: 6*n */ |
s= 6*n /*calculate the product of: 6*n */ |
||
if verify(s, b)>0 then iterate /* |
if verify(s, b)>0 then iterate /*S doesn't have required digits? Skip*/ |
||
if verify(s, t)>0 then iterate /* |
if verify(s, t)>0 then iterate /*" " " " " " */ |
||
if verify(s, q)>0 then iterate /* |
if verify(s, q)>0 then iterate /*" " " " " " */ |
||
if verify(s, v)>0 then iterate /* |
if verify(s, v)>0 then iterate /*" " " " " " */ |
||
say ' n =' commas(n) /*display the value of: n */ |
say ' n =' commas(n) /*display the value of: n */ |
||
say ' 2*n =' commas(b) /* " " " " 2*n */ |
say ' 2*n =' commas(b) /* " " " " 2*n */ |