falling number by pooq

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