plastic constant by 51b

-module(p).
-export([m/0]).
m()->io:format("1.~p",[f(1,1,1,600)]).
f(A,B,_,0)->(A-B)*g(98)div B;f(A,B,C,N)->f(B+C,A,B,N-1).
g(0)->1;g(N)->10*g(N-1).

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

download

return to the top page