for n=10to 1e4m=n while(m>9)a=mod(m,10) m=int(m/10) if!a<mod(m,10)goto 1 wend ?n 1next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page