Skip to main content
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
Relanzada por el usuario Comunidad
se añadieron 78 caracteres en el cuerpo
Origen Enlace
Pablo Lozano
  • 49.9k
  • 8
  • 55
  • 92

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).

Tiene_alergia(Pepe, amoxicilina).
Tiene_alergia(pepe, ampicilina).

Contiene(clamoxil, amoxicilina).
Contiene(britapen, ampicilina).

Ahora mediante findallfindall 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).

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

 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.

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.

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.

Origen Enlace

Buscar elementos de una lista en otra prolog

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.