6 lines
158 B
Text
6 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
|