Nth root: Difference between revisions

m
Line 1,016:
=={{header|EasyLang}}==
 
<lang>func power x n% . r .
r = 1
for i% range n%
r *= x
.
.
func nth_root x n% . r .
r = 2
repeat
call power r n% - 1 p
d = (x / p - r) / n%
r += d
until absfabs d < 0.0001
.
.
2,033

edits