Question

我有这些结构的数据库

        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.

Answer 1

我认为你应该将AC放入findall

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

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

Prolog按列表中的相同字段搜索

1 个答案: