Prolog-儿童家谱

Question

如果我想递归地沿着prolog中的一个家族树返回每个分支的子代，我将如何开始呢？

谢谢

Answer 1

假设下面的树是红色的子树

​

​

然后，一个简单的解决办法可以是：

male(lennart).
male(mike).
male(donald).
male(usain).
male(joar).
male(adam).
male(dan).
male(simon).
female(hillary).
female(elise).
female(lisa).
female(lena).

parent(mike, lennart).
parent(mike, lena).
parent(lennart, donald).
parent(lennart, hillary).
parent(lennart, usain).
parent(lena, adam).
parent(lena, simon).
parent(adam, dan).
parent(donald, lisa).
parent(hillary, joar).
parent(hillary, elise).


child(lisa).
child(joar).
child(elise).
child(dan).
child(simon).

%% predicate rules
father(X,Y) :- male(X),parent(X,Y).
mother(X,Y) :- female(X),parent(X,Y).
son(X,Y) :- male(X),parent(Y,X).
daughter(X,Y) :- female(X),parent(Y,X).

family_children(X, X):-
    child(X).

family_children(X, Child):-
    parent(X,Y),
    family_children(Y, Child).

测试运行：

[debug]  ?- family_children(mike, Child).
Child = lisa ;
Child = joar ;
Child = elise ;
Child = dan ;
Child = simon ;
false.

这只是一个简单的例子，说明了如何做到这一点，这个例子依赖于这样的假设:一个孩子不能再生另一个孩子，但是这个解决方案可以很容易地得到改进，你可以添加诸如cousin/2、grandfather/2、sister/2、uncle/2等规则.

希望你现在掌握了这个主意，祝你好运。