如何避免序言中的重复

Question

我得到了几个结果，输出相同。

我只想得到jack,jane一次，但我得到了两次。

我该如何避免这种情况？我试过setof，但我无法完成。请有人可以帮我解决这个问题吗？

Answer 1

此问题重复于"How to stop repetitions in rules in prolog"。

的答案是做这样的事情：

solve :- 
    marriedcouple(Dad, Mum), 
    not(found(marriedcouple(Dad, Mum))), 
    assert(found(marriedcouple(Dad, Mum))), 
    write([Dad, Mum]), 
    nl, 
    fail. 

阅读full answer更多细节。