使用prolog完成家族族谱

在Prolog中，你可以使用逻辑编程的方式来设计家族族谱系统。Prolog是一种基于规则和事实的编程语言，非常适合表示有向图（如家庭树）。首先，你需要定义一些基本的事实和规则。

1. 定义事实（Facts）：
- `parent(Person1, Person2)`: 表示Person1是Person2的父母。
- `child(Person1, Person2)`: 表示Person1是Person2的孩子。
- `spouse(Person1, Person2)`: 表示Person1和Person2结为夫妻。

例如：

parent(john, jane).
parent(jane, bob).
spouse(john, jane).
child(jane, sam).

2. 定义规则（Rules）：
- 用于推导更复杂的关系，比如孙子、曾孙等。
- `descendant(Person, Descendant):` 如果Person有一个孩子并且这个孩子有一个孩子，则Person就是Descendant的祖先。

规则可以这样编写：

descendant(Person, Descendant) :-
    child(Person, Child),
    descendant(Child, Descendant).

3. 查询功能：
- 你可以编写查询来获取特定人的所有直系亲属，如查找某人所有的后代：

   ?- descendant(john, Descendant), writeln(Descendant).