Hacemos una verificación profunda cada enunciado de nuestra página web con la meta de mostrarte en todo momento información con la mayor veracidad y actualizada.
Solución:
Usando findall/3:
people(L) :- findall(X, (man(X) ; woman(X)), L).
?- people(X).
X = [john, carl, mary, rose].
Recuerda que puedes optar por la opción de esclarecer si atinaste tu atasco en el momento justo.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)