-module m. -export[m/0]. m()->G={io,get_line},lists:foldl(fun(B,A)->G(if A rem B<1->[B];0<1->D=abs(B-A)div(B-A),lists:seq(A+D,B,D)end),B end,0,G("")).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page