Buenas estoy trabajando en un recomendador de medicinas en el que tengo una lista de medicamentos y otra con alergias, un hecho contiene(medicamento, componente) donde X medicamento contiene a Y componente y otro que es tiene_alergia(paciente, componente_alérgico) donde X es alérgico a Y componente. Lo que quiero es sacar la lista de medicamentos que no contienen ese medicamento pero no lo consigo. Ejemplo:
Tiene_alergia(Pepe, amoxicilina).
Tiene_alergia(pepe, ampicilina).
Contiene(clamoxil, amoxicilina).
Contiene(britapen, ampicilina).
Ahora mediante findall
obtengo 2 listas A = lista de alergias del paciente y L = lista de componentes de los medicamentos.
Llamo a la regla eliminar(A, L, L2). L2 será la lista después del filtrado.
Eliminar([],[]).
Eliminar(X, [Y|Ys], L2) :- posicion(X, [Y|Ys],Pos), borrar(Pos, [Y|Ys], L2).
Eliminar([X|Xs], [Y|Ys], L2):- eliminar(X, [Y|Ys]) ; eliminar(Xs, Ys).
Posicion(E, [E, _], 0).
Posicion(E,[_|C], P):- posición (E,C,P1), P is P1+1.
Borrar(I, L, L2) :- insertar(_,I,L2,L).
Insertar(X, 0, L2, [X|L2]).
Insertar(X, Pos, [C|R], [C|R2]) :- Pos1 is Pos -1, insertar(X, pos1, R, R2).
La cosa es que si yo llamo a
eliminar([amoxicilina,ampicilina],[amoxicilina, ampicilina], L2).
L2 = [ampicilina];
y esto es erróneo debería ser []
Habría alguna forma de corregirlo?
Gracias de ante mano.