このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1328276597/168
#  [1] プログラミング 
#  [2][A1,A2,A3,B1,B2,B3]の6つの要素から、2つを合わせたペアを全通り出力せよ 
#  ただし、同じ記号と数字を含む要素はペアにはできない 
#  (例:A1A2やA1B1は×、A1B2やA1B3は○) 
#  

'[A1,A2,A3,B1,B2,B3]の6つの要素から、2つを合わせたペアを全通り出力せよ。ただし、同じ記号と数字を含む要素はペアにはできない'(_要素1,_要素2) :-
        member(_要素1,['A1','A2',A3','B1','B2','B3']),
        member(_要素2,['A1','A2',A3','B1','B2','B3']),
        同一文字要素を含まない(_要素1,_要素2).

同一文字要素を含まない(_要素1,_要素2) :-
        atom_chars(_要素1,L1),
        atom_chars(_要素2,L2),
        \+((member(_共通要素,L1),member(_共通要素,L2))),!.