プロローグ内のコードは何ですか？同じ世代の2人の人を見つけることができますか？

Question

プロローグにコードが必要です。

家系内の人をいくつか定義したとします。

世代が同じで、同じ祖先の人がいる場合、2人の名前とプロセスを取得する関数を作成するにはどうすればよいですか？

parent(chester,irvin). 
parent(chester,clarence). 
parent(chester,mildred). 
parent(irvin,ron). 
parent(irvin,ken). 
parent(clarence,shirley). 
parent(clarence,sharon). 
parent(clarence,charlie). 
parent(mildred,mary). 


male(chester). 
female(mildred). 
male(irvin). 
female(shirley). 
male(clarence). 
female(sharon). 
male(ron). 
female(mary). 
male(ken). 
male(charlie). 



father(X,Y) :- parent(X,Y), male(X). 

mother(X,Y) :- parent(X,Y), female(X). 

grandparent(X,Y) :- parent(X,Z), parent(Z,Y). 

paternalgrandfather(X,Y) :- father(X,Z), father(Z,Y). 

sibling(X,Y) :- parent(Z,X), parent(Z,Y). 

brothers(X,Y) :- sibling(X,Y),male(X),male(Y), \+ (X=Y). 

samegeneration(x,y) :- HERE I DONT KNOW WHAT TO DO 

Answer 1

それを打破

：同じ親を持つことは、あなたのベースケースとなり、共通の祖先を持つ二人のための述語で始まります。そして、その共通の祖先から各人が何世代にいるかを追跡するためにそれを強化します。 1つのステップ（これは練習として残されています）が完了しました！