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