30 lines
622 B
Perl
30 lines
622 B
Perl
|
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).
|