16 lines
266 B
Perl
16 lines
266 B
Perl
|
rufian(bertoldo).
|
||
|
|
rufian(bartolo).
|
||
|
|
noble(romeo).
|
||
|
|
noble(bertoldo).
|
||
|
|
plebeyo(bartolo).
|
||
|
|
|
||
|
|
dama(gertrudis).
|
||
|
|
dama(julieta).
|
||
|
|
hermosa(julieta).
|
||
|
|
|
||
|
|
deseara(X, Y) :- plebeyo(X), dama(Y).
|
||
|
|
deseara(X, Y) :- noble(X), dama(Y), hermosa(Y).
|
||
|
|
|
||
|
|
raptara(X, Y) :- rufian(X), deseaa(X, Y).
|
||
|
|
|