MFC/p2/fiesta.pl

30 lines
622 B
Perl
Raw Permalink Normal View History

2018-10-15 18:55:06 +02:00
hombre(alfredo).
hombre(felipe).
hombre(francisco).
mujer(sonia).
mujer(eva).
mujer(carmen).
bebe(alfredo, whisky).
bebe(alfredo, ron_cola).
bebe(felipe, cerveza).
bebe(felipe, gin_tonic).
bebe(felipe, ron_cola).
bebe(francisco, vino).
bebe(francisco, malibu).
bebe(sonia, gin_tonic).
bebe(sonia, malibu).
bebe(eva, vino).
bebe(eva, cerveza).
bebe(carmen, whisky).
bebe(carmen, ron_cola).
/* Ejercicio 2a */
pareja(X, Y) :- bebe(X, B), bebe(Y, B), hombre(X), mujer(Y).
/* Ejercicio 2b */
hombre(pepe).
bebe(pepe, X) :- bebe(alfredo, X).
mujer(elena).
bebe(elena, X) :- bebe(sonia, X).
bebe(elena, X) :- bebe(felipe, X).