Nth root: Difference between revisions
Content deleted Content added
m →{{header|Wren}}: More appropriate variable name: pair -> trio. |
m →{{header|Haskell}}: Small reduction. |
||
Line 1,490: | Line 1,490: | ||
until |
until |
||
(uncurry (==)) |
(uncurry (==)) |
||
(((,) <*> ((/ n) . ((+) |
(((,) <*> ((/ n) . ((+) . ((n - 1) *) <*> (x /) . (** (n - 1))))) . snd) |
||
(x, x / n) |
(x, x / n) |
||
-- TESTS -------------------------------------------------- |
-- TESTS -------------------------------------------------- |
||
main :: IO () |
main :: IO () |
||
Line 1,503: | Line 1,503: | ||
(uncurry nthRoot) |
(uncurry nthRoot) |
||
[(2, 2), (5, 34), (10, 734 ^ 10), (0.5, 7)] |
[(2, 2), (5, 34), (10, 734 ^ 10), (0.5, 7)] |
||
-- FORMAT OF RESULTS -------------------------------------- |
-- FORMAT OF RESULTS -------------------------------------- |
||
fTable :: String -> (a -> String) -> (b -> String) -> (a -> b) -> [a] -> String |
fTable :: String -> (a -> String) -> (b -> String) -> (a -> b) -> [a] -> String |