如何避免序言中的重複

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更多細節。