
Untitled
By: a guest on
May 15th, 2012 | syntax:
Prolog | size: 0.24 KB | hits: 29 | expires: Never
% Por cada sospechoso, aisla el cuerpo
forall(clause(sospechoso(_), Cuerpo) ,
% Hace la búsqueda en el cuerpo
(buscar_b(Atributo, Cuerpo, Vistos, [E]), write('>'), write(E), write('<'), nl, Vistos is [E|Vistos])),