family(
person(pat, marx, date(10, march, 1944), unemployed),
person(charlotte, marx, date(11, february, % ... etc
).
找到每個人的名字和姓氏,並給他們的收入(你可以使用提供的薪水/ 2謂詞,它返回每個人的收入數字,無論他們是否在工作)。此外,請指出每個工作人員的「收入狀況」爲 就業,失業或退休。然而PROLOG知識庫
香港專業教育學院這樣做它不工作:
status(person(_,_,_,works(_,S)),WorkStatus).
status(person(_,_,_,unemployed),WorkStatus).
status(person(_,_,_,retired),WorkStatus).
question6(Name,Surname,Income,Status) :-
exists(person(Name, Surname, Date, WorkStatus)),
salary(person(Name, Surname, Date, WorkStatus),Income),
status(WorkStatus,Income).