-module(a). -export([m/0]). f([A,B|C])->D=round((B-A)/abs(B-A-0.1)),lists:seq(A,B-D,D)++f([B|C]);f(A)->A. m()->io:fwrite(f(io:get_line(""))).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page