- 14 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 18:47:19 ]
- >>11 です。
では、質問の意図は「(近場に住む人同士における)関連の存在」を質問しているのではなく、
「(近場に住む人々を)列挙する」ことにあると考えていいのかな？（回りくどくてゴメソ）
もしそうであれば、近場に３人以上の人が住んでいるケースでは、リストを使わないと
列挙できないから、問い合わせは livesNear(P,Q) ではなく、以下のようなコードになる。
findAllLivesNear(People) :-
!,
findall(Town, address(_, [Town|_]), Towns),
reject_duplicates(Towns,T), % 重複している要素を取り除く
findAllLivesNear(T, People).
findAllLivesNear([], []) :- !.
findAllLivesNear([T|Town], [P|People]) :-
findall(Person, address(Person, [T|_]), P),
length(P, Length),
Length >= 2,
!,
findAllLivesNear(Town, People).
findAllLivesNear([_|Town], People) :-
!,
findAllLivesNear(Town, People).
|
 |
