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等......

希望你现在对这个想法有所了解，祝你好运。