Factors of an integer: Difference between revisions
→{{header|Haskell}}
(Applesoft BASIC) |
|||
Line 3,168:
integerFactors n
| 1 > n = []
| otherwise = lows
where
part n
Line 3,174:
| otherwise = id
(square, lows) =
(,) . (^ 2)
$ floor (sqrt $ fromIntegral n)
main :: IO ()
|