falling number by KirarinSnow

(dotimes(x 1e4)(if(fold(lambda(c r)(and r(char>? r c)c))#\A(string->list(number->string(+ 10 x))))(print(+ x 10))))

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

download

return to the top page