number slide by 51b

-module(n).
-export([m/0]).
m()->{_,[X]}=io:fread('',"~d"),[io:format("~p~c",[N,f(N,0,0)])||N<-lists:seq(1,X)].
f(N,M,L)->if N<M->32;N>M->f(N,M+L,L+1);0<1->10end.

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

download

return to the top page