利用prolog实现家族谱

在Prolog中，我们可以利用这种基于规则的编程语言来构建一个简单的家族谱系统。首先，我们需要定义一些基本的数据结构，如`person/2`表示一个人的名字和年龄，以及`parent/2`表示父母与孩子的关系。

例如：

% 定义数据结构
person(name, age).
parent(parent_name, child_name).

% 初始化一些家庭成员
john(30, father).
mary(28, mother).
anna(john, daughter).
ben(mary, son).

接下来，我们可以通过规则来描述家庭关系，比如查找某个孩子所有的父母：

% 查找父亲或母亲
find_parent(ParentName, ChildName) :-
    parent(ParentName, ChildName).

% 找到所有祖先
ancestors(Person, [Person|Ancestors]) :-
    parent(Parent, Person),
    ancestors(Parent, Ancestors).

ancestors(Person, []) :-
    person(Person, _), !.

然后你可以通过查询来使用这些规则，例如获取Anna的父亲：

?- find_parent(FatherName, anna).
FatherName = john.

或者查看Ben的所有祖先：

?- ancestors(ben, Ancestors), print_list(Ancestors).