4 lines
180 B
Erlang
4 lines
180 B
Erlang
nth_root(N, X) -> nth_root(N, X, 1.0e-5).
|
|
nth_root(N, X, Precision) ->
|
|
F = fun(Prev) -> ((N - 1) * Prev + X / math:pow(Prev, (N-1))) / N end,
|
|
fixed_point(F, X, Precision).
|