- 391 名前：デフォルトの名無しさん mailto:sage [2009/07/07(火) 20:35:12 ]
- >>390
member/2だけではうまくいかなかった。
member(A,B,L,[A,B]) :- member((A,B),L).
member(A,B,L,[A|R1]) :- member((A,C),L),member(C,B,L,R1).
?- member(a,f,[(a,b),(b,c),(b,d),(c,e),(e,d),(d,f),(d,e)],S).
ならうまくいくかな。
