Как мне покрасить точки, используя 2 условия?

Еще один способ добиться этого - использовать аппликации:

import Control.Applicative

cartProd :: [a] -> [b] -> [(a,b)]
cartProd xs ys = (,) <$> xs <*> ys