Compound interest by 51b

-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