Nth root: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,490: / Line 1,490: @@
   until
     (uncurry (==))
+    (\xy ->
-    (((,) <*> ((/ n) . ((+) . ((n - 1) *) <*> (x /) . (** (n - 1))))) . snd)
+        let pn = pred n
+        in ((,) <*> ((/ n) . (((+) . (pn *)) <*> ((x /) . (** pn))))) . snd xy)
     (x, x / n)
 -------------------------- TESTS --------------------------
@@ Line 1,504: / Line 1,505: @@
     (uncurry nthRoot)
     [(2, 2), (5, 34), (10, 734 ^ 10), (0.5, 7)]
 -------------------- FORMAT OF RESULTS --------------------