我在swi-prolog中有一個非常簡單的程序,它定義了所有關於家庭關係的謂詞。我還定義了一些事實(基於聖經的亞伯拉罕的家庭)。所以,現在swi-prolog謂詞不起作用
female(sarah).
mother(sarah,isaac).
married(rebekah,isaac).
,當我在節目類型
?- mother_in_law(sarah,X).
它應該給我: 所以我定義了一個謂語 「mother_in_law」 是這樣的:
mother_in_law(X,Y):- female(X),mother(X,Z),married(Z,Y).
和一些事實只有X = rebekah。但是它給了我一些其他的X值,這些值並不符合我定義的條件。
有人能告訴我我做錯了什麼嗎?
非常感謝
我添加了整段文字部分:
father(X,Y). % Define Predicates%
mother(X,Y).
married(X,Y).
male(X).
female(X).
parent(X,Y).
diff(X,Y).
male_cousin(X,Y).
brother_in_law(X,Y).
mother_in_law(X,Y).
cousin_three(X,Y).
cousin(X,Y).
sib(X,Y).
%Define Facts%
male(terah). male(abram). male(nahor). male(haran). male(isaac).
male(lot). male(moab). male(ben_ami). male(bethuel). male(laban).
male(esau). male(jacob). male(reuben).
female(sarah). female(milcah). female(lot_daughter_1). female(lot_daughter_2).
female(rebekah). female(leah). female(dinah).
father(terah,abram). father(terah,nahor). father(terah,haran).
father(abram,isaac). father(haran,lot). father(nahor,bethuel).
father(bethuel,laban). father(laban,leah). father(isaac,jacob).
father(isaac,esau).
father(jacob,reuben).
mother(sarah,isaac). mother(milcah, bethuel). mother(rebekah,jacob).
mother(rebekah,esau). mother(leah,reuben).
mother(lot_daughter_1,moab). mother(lot_daughter_2,ben_ami).
married(abram,sarah). married(nahor,milcah).
married(isaac,rebekah). married(jacob,leah).
married(sarah,abram). married(milcah,nahor).
married(rebekah,isaac). married(leah,jacob).
%Define complicated predicates%
parent(X,Y) :- father(X,Y).
parent(X,Y) :- mother(X,Y).
diff(X,Y) :- not(X=Y).
sib(X,Y):- parent(Z,X), parent(Z,Y), diff(X,Y). %define sibling %
mother_in_law(X,Y):- female(X),mother(X,Z),married(Z,Y). %question 1%
male_cousin(X,Y):- male(X),father(W,X),parent(Z,Y),sib(W,Z). %question 2%
cousin(X,Y):- parent(Z,X), parent(W,Y), sib(W,Z). %question 3%
cousin_three(X,Y):- parent(Z,X),parent(G,Z),parent(H,Y),parent(K,H),cousin(G,K).
brother_in_law(X,Y):- male(X),married(X,Z),sib(Y,Z). %question 5-X is married to Y's sibling%
brother_in_law(X,Y):- male(X),sib(X,Z),married(Y,Z). %X's sibling is married to Y%
brother_in_law(X,Y):- male(X),married(X,W),married(Y,Z),sib(W,Z). % Y is married to the sibling of X's spouse%
感謝。其實我做了你說的話,它仍然給出了一些其他的垃圾,像雅各是莎拉的女婿(?!?!)...所以我仍然不知道問題是什麼。 – 2012-03-21 17:19:10
你可以發佈其他事實嗎?那麼我也可以嘗試一下 – 2012-03-21 17:22:38