falling number by pooq

for(n in 10:1e4){m=n;while(m>9){if((a=floor(m/10))%%10<=m%%10)break;m=a};if(m<10)write(n,"")}

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

download

return to the top page