0

我有那些结构的数据库

        my_family( person("FN","SN", unempl(), 20), 
                    person("FN2","SN", work("Soft", 200), 30), 
                    [person("FN3","SN", work("HP" , 10), 13), 
                    person("FN4","SN", work("LP", 200), 1), 
                    person("FN5","SN" , work("qwerty", 300), 1)]).

 domains
    family = person*.
    person = person(string Name, string LastName, work, integer Age).
    work = work(string Corp, real Salary)

我如何获得家庭，与孩子同龄？

我试试

 clauses
    length_of([], 0).
    length_of([_|T], L):-
        length_of(T, TailLength),
        L = TailLength + 1.

    ....

        my_family(person(_, _, _, FA), person(_, _, _, MA), Child),


        getName(Child).

        getName([]).
        getName([person(N, S, _, AC)|T]):-
            findall(1, _=person(_, S, _, AC), L),
            length_of(L, LN),
            2 <= LN,
            stdIO::writef("Family: %\n\n\n", S),
            getName(T).

但它不起作用，似乎 findall 返回一个只有一个元素的列表 L。

4

1 回答 1

0

我认为你应该在 findall 中放弃 AC

findall(1, _=person(_, S, _, _), L),

否则，该列表仅限于与当前人年龄相同的人。免责声明：我无法测试该代码，并且它的语法非常不标准：在 ISO Prolog 中，findall/3 在没有 _=person(...) 的情况下工作，但这可能是我不知道的 Visual prolog 的一个功能

于 2013-01-30T20:26:34.023 回答