确定表兄弟

时间:2015-11-09 07:27:33

标签: prolog

我有一项任务,我得到了以下内容:

n=100000

由此,我需要编写一个函数来确定这对输入人是否是第一个表兄弟。我的尝试如下:

male(albert).
male(edward).
male(fred).
male(steve).
male(jimmy).

female(alice).
female(victoria).
female(megan).
female(janet).
female(mary).

parents(edward,victoria,albert).
parents(alice,victoria,albert).
parents(fred,janet,steve).
parents(megan,janet,steve).

parents(victoria,mary,jimmy).
parents(steve,mary,jimmy).

这样可行,但它会为M,M2,F和F2返回“Singleton Variable”错误。

有没有比我写的更干净的方式来确定第一个堂兄?

0 个答案:

没有答案