Skip to main content
1 de 2

Basta con que el primer número sea menor o igual al segundo.

[(n1, n2) | n1 <- [0..6], n2 <- [0..6], n1 <= n2]

Puedes hacer que directamente la segunda lista genere los números desde n1 hasta 6. Así las fichas no se repiten y evitas tener que filtrar los pares que sobran.

Por otra parte, deberías utilizar el tipo de datos Int en lugar de Integer. Integer es para enteros de longitud arbitraria.

domino :: [(Int, Int)]
domino = [(n1, n2) | n1 <- [0..6], n2 <- [n1..6]]