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