RosettaCodeData/Task/Nth-root/J/nth-root.j
2023-07-01 13:44:08 -04:00

5 lines
158 B
Text

'`N X NP' =. (0 { [)`(1 { [)`(2 { [)
iter =. N %~ (NP * ]) + X % ] ^ NP
nth_root =: (, , _1+[) iter^:_ f. ]
10 nth_root 7131.5^10
7131.5