Skip to main content
2 de 2
se añadieron 109 caracteres en el cuerpo

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. Int es para enteros comúnmente de 32 o 64 bits (depende de la implementación, pero se garantizan al menos 30 bits), mientras que Integer es para enteros de longitud arbitraria.

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