falling number by zetamatta

for i=10,10000 do
f=1;s=''..i
for j=1,#s-1 do f=f and s:sub(j,j)>s:sub(j+1,j+1)end
if f then print(i)end
end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page