productOfThreeDigits :: Int -> Bool
productOfThreeDigits x = any (\(n, m) -> n * m == x) [(n, m) | n <- [999,998..100], m <- [999,998..100]]
productOfThreeDigits :: Int -> Bool
productOfThreeDigits x = any (\(n, m) -> n * m == x) [(n, m) | n <- [999,998..100], m <- [999,998..100]]
productOfThreeDigits x = any (\(n, m) -> n * m == x) [(n, m) | n <- [999,998..100], m <- [999,998..100]]