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