-module(f). -export([m/0]). m()->{_,[N,X,R]}=io:fread('',"~d:~d:~d"),f(N,X,R). f(0,_,_)->x;f(N,X,R)->io:write(X),io:nl(),f(N-1,X*($d+R)div$d,R).

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

download

return to the top page