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，@987654326这样的规则@、sister/2、uncle/2 等等……

希望你现在掌握了这个想法，祝​​你好运。