Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- pe3 = maximum [ x | x <- takeWhile (<= 775146) primes,
- 600851475143 `mod` x == 0 ]
- primes = filterPrime [2..]
- where filterPrime (p:xs) = p : filterPrime [x | x <- xs, x `mod` p /= 0]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement