Largest proper divisor of n: Difference between revisions
m
→{{header|Haskell}}
Line 288:
maxProperDivisors :: Int -> Int
maxProperDivisors n
|
| otherwise =
where
root = (floor . sqrt) (fromIntegral n :: Double)
main :: IO ()
| |||