Skip to main content
se añadieron 109 caracteres en el cuerpo
Origen Enlace

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]]

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]]

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]]
Origen Enlace

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]]