RosettaCodeData/Task/Nth-root/Oforth/nth-root.oforth
2016-12-05 23:44:36 +01:00

2 lines
99 B
Text

Float method: nthroot(n)
1.0 doWhile: [ self over n 1 - pow / over - n / tuck + swap 0.0 <> ] ;