Increasing gaps between consecutive Niven numbers: Difference between revisions
Content added Content deleted
m (→add digits in chunks: added some comments.) |
m (→add digits in chunks: corrected a typo.) |
||
Line 224: | Line 224: | ||
do zz= length(j)+1 to 4 /*handle all J's with leading zeros. */ |
do zz= length(j)+1 to 4 /*handle all J's with leading zeros. */ |
||
jz= right(j, zz, 0) /*also add leading zeros from some J's.*/ |
jz= right(j, zz, 0) /*also add leading zeros from some J's.*/ |
||
if @.jz==0 then @.jz= sum /*assign a |
if @.jz==0 then @.jz= sum /*assign a sum to 000xx for instance.*/ |
||
end /*zz*/ |
end /*zz*/ |
||
end /*j*/ |
end /*j*/ |