Integer roots: Difference between revisions
m
→{{header|Haskell}}: An earlier reversion reverted
m (→{{header|Haskell}}: An earlier reversion reverted) |
|||
Line 401:
where
pn = pred n
go (
| x == y
| otherwise = go xs
main :: IO ()
main = mapM_ (print . uncurry integerRoot) [(3, 8), (3, 9), (2, 2 * 100 ^ 2000)]</lang>
|