module IsPrime where
isPrime :: Integer -> Bool
isPrime x
| x `elem` [2, 3, 5, 7] = True
| x < 2 || even x = False
| otherwise = not $ any (\n -> x `rem` n == 0) [3, 5..last]
where last = (round . sqrt . fromIntegral) x