-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+X*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