Nth root: Difference between revisions
m
→{{header|Haskell}}
Line 1,487:
<lang haskell>nthRoot :: Double -> Double -> Double
nthRoot n x =
in fst $
(
▲ let pn = pred n
(x, x / n)▼
▲ in ((,) <*> ((/ n) . (((+) . (pn *)) <*> ((x /) . (** pn))))) . snd xy)
▲ (x, x / n)
-------------------------- TESTS --------------------------
| |||