Data update

Task/Nth-root/OoRexx/nth-root.rexx

@@ -0,0 +1,31 @@
+/* REXX */
+Numeric Digits 70
+Call test 2,2
+Call test 10,3
+Call test 625,-4
+Call test 100.666,47
+Call test -256,8
+Call test 12345678900098765432100.00987654321000123456789e333,19
+Exit
+test:
+Parse Arg x,n
+xa=abs(x)
+na=abs(n)
+lnx=rxmlog(xa,70)
+rt=rxmexp(lnx/na,70)
+Numeric Digits 65
+result=rt+0
+If pos('.',result)>0 Then Do   -- get rid of zeroes in decimals
+  Parse Var result int '.' dec
+  If dec=0 Then
+    result=int
+  End
+If sign(n)=-1 Then result=1/result
+If sign(x)=-1 Then result=result'j'
+Say '       x = ' x
+Say '    root = ' n
+Say '  digits = ' 65
+Say '  answer = ' result
+Say ''
+Return
+::REQUIRES rxm.cls