/* Ejemplo1_0. plLos comentarios como en C */
/* Hechos: le_gusta_a(A,B) --> a Ale_gustaB */
le_gusta_a(juan, maria).
le_gusta_a(pedro, coche).
le_gusta_a(maria, libro).
le_gusta_a(maria, juan).
le_gusta_a(jose, maria).
le_gusta_a(jose, coche).
le_gusta_a(jose, pescado).
/* Reglas: es_amigo_de(juan, Persona) --> juan es amigo de Persona si a Persona le gustan los coches */
es_amigo_de(juan,X):-le_gusta_a(X, coche).
