erlangでネイピア数を求める

erlangでネイピア数を求めてみた。 指数表現やelseが使えなかったりとかするので、なかなか難しい。 もっと洗練された書き方ができそうだ。

	-module(naipier).
	-export([naipier/0,naipier/3]).
	naipier() -> naipier(0, 1, 1).
	naipier(N, I, J) ->
	EPS = math:pow(10,-8),
	if
	EPS < 1 / I
	-> naipier(N + 1 / I , I * J, J + 1);
	true
	-> io:format("~w~n",[N])
	end.

view raw naipier.erl hosted with ❤ by GitHub