Self numbers: Difference between revisions

Content added Content deleted
m (→‎{{header|AppleScript}}: Fixed test code change left over from testing the fix.)
m (→‎{{header|Phix}}: mirrored bugfix)
Line 932: Line 932:
numericDiff = 1000000000001
numericDiff = 1000000000001
while indexDiff>=98 and counter!=startIndex do
while indexDiff>=98 and counter!=startIndex do
if counter+indexDiff > startIndex then
if counter+indexDiff < startIndex then
indexDiff = floor(indexDiff/10) + 1
numericDiff = floor(numericDiff/10) + 1
else
counter += indexDiff
counter += indexDiff
currentSelf += numericDiff
currentSelf += numericDiff
else
indexDiff = floor(indexDiff/10) + 1
numericDiff = floor(numericDiff/10) + 1
end if
end if
end while
end while