(18-05-2014 04:49)Desert69 escribió:  Tengo la sensación de que esto debería salir al toque en prolog, pero no se implementarlo...

 

/*

Tenemos 5 casas de cinco colores diferentes, una al lado de la otra.

En cada casa vive una persona de nacionalidad diferente.

Cada dueño de cada casa bebe una bebida diferente, fuma una marca de cigarrillos diferente y tiene una mascota diferente.



Se quiere saber quién tiene como mascota a un pez, sabiendo que:

· El inglés vive en la casa roja.

· El sueco tiene un perro.

· El danés toma té.

· La casa verde esta a la izquierda de la blanca.

· El dueño de la casa verde toma café.

· La persona que fuma Pall Mall tiene un pájaro.

· El dueño de la casa amarilla fuma Dunhill.

· El que vive en la casa del centro toma leche.

· El noruego vive en la primera casa.

· La persona que fuma Brends vive junto a la que tiene un gato.

· La persona que tiene un caballo vive junto a la que fuma Dunhill.

· El que fuma Bluemasters bebe cerveza.

· El alemán fuma prince.

· El noruego vive junto a la casa azul.

· El que fuma Brends tiene un vecino que toma agua.

*/



pais(inglaterra).

pais(suecia).

pais(dinamarca).

pais(noruega).

pais(alemania).



bebida(te).

bebida(cafe).

bebida(agua).

bebida(leche).

bebida(cerveza).



cigarrillos(pallmall).

cigarrillos(dunhill).

cigarrillos(bluemasters).

cigarrillos(prince).

cigarrillos(brends).



casa(1).

casa(2).

casa(3).

casa(4).

casa(5).



color(blanco).

color(rojo).

color(verde).

color(amarillo).

color(azul).



mascota(perro).

mascota(pez).

mascota(caballo).

mascota(pajaro).

mascota(gato).





% vive(pais,bebida,cigarrillos,casa,color,mascota).