% 悪い解答をひとつ
% 言語: IF/Prolog
f(X) :- f(1,1,X).
f(N,S,X) :- N > 100000,X is S / N,!.
f(N,S,X) :- M is N * 3,S2 is S + M,f(M,S2,X).