Merge pull request #176 from jlp765/master

rosetta file nth_root.flx added
felix-lang · Jan 1, 2023 · 3a47e71 · 3a47e71
2 parents f3b6a43 + 0370949
commit 3a47e71
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/rosetta/nth_root.flx b/src/rosetta/nth_root.flx
@@ -0,0 +1,16 @@
+//translated from Nim
+
+fun nth_root (a: double, n: int): double = {
+  val dn = n.double;
+  var res = a;
+  var x = a / dn;
+  while abs(res - x) > 1.0e-15 do
+    x = res;
+    res = (1.0 / dn) * (((dn - 1.0) * x) + (a / pow(x, dn - 1.0)));
+  done
+  return res;
+}
+
+println$ f"%.15f" (nth_root(34.0, 5));
+println$ f"%.15f" (nth_root(42.0, 10));
+println$ f"%.15f" (nth_root(5.0, 2));