bachillerato

% ***** Quién es quién en el juego de canasta *****
% Hay 6 lugares en una mesa redonda (o hexagonal) y
% el programa encuentra el nombre y característica de
% quien está sentada encada lugar de acuerdo con esta
% información:
% 1) La gordis está frente Blanca.
% 2) La sorda está frente a Clara.
% 3) Clara está entre la alegre y la gordis.
% 4) La nanaestá frente a Adela, junto a la sorda
% y a la izquierda de la gordis.
% 5) La alegre está entre Clara y alguien que está
% frente a la gordis.
% 6) Ni la dueña de lacasa, ni Flora tienen sobrepeso.
% 7) Flora es frente a la que llegó al último y junto
% a la nana.
% 8) Hay una adicta a las apuestas (y no es Marge).
% 9) También están Dora yElsa.
% El programa considera dos listas, una de nombres
% y otra de características.
%----------------------------------------------------
%--- Rutinas generales para manejo delistas -----
% Verifica si el elemento A es miembro de la lista
% member (elemento,lista).
member(A,[A|T]).
member(A,[X|X]) :- member(A,T).
% Verifica si el elemento A no esmiembro de la lista
non_member(A,[]).
non_member(A,[B|L]) :- non_member(A,L), A \= B.
% Verifica que la lista no tenga elementos repetidos
sin_repeticion([]).
sin_repeticion([A|B]):- non_member(A,B), sin_repeticion(B).
%----------------------------------------------------
%--- Descripción de la mesa y los asientos -----
% __1_
% 2/\6 Mesa
% / \ vista
% \ / desde
% 3\____/5 arriba
% 4
derecha(1,2).
derecha(2,3).derecha(3,4).
derecha(4,5).
derecha(5,6).
derecha(6,1).
frente0(1,4).
frente0(2,5).
frente0(3,6).
frente0(4,1).
frente0(5,2).
frente0(6,3).
% Reglas...