このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1294641578/215
#  one_side the_other value 
#  30 31 23 
#  31 30 23 
#  4 31 20 
#  31 6 20 
#  6 31 20 
#  31 4 20 
#  19 30 19 
#  30 19 19 
#  7 27 17 
#  35 18 17 
#  : : : 
#   
#  one_sideとthe_otherのペアとして認識して 
#  逆順になっているだけのペアは纏める方法を教えて下さい 
# 

'one_sideとthe_otherのペアとして認識して逆順になっているだけのペアは纏める方法を教えて下さい'(_テーブル名,_逆順になっているペア) :-
        findall([_one_side,_the_other],(
                    'one_sideとthe_otherのペアとして認識して逆順になっているだけのペアは纏める方法を教えて下さい'(_テーブル名,_one_side,_the_other,L2)),
                _逆順になっているペア).

'one_sideとthe_otherのペアとして認識して逆順になっているだけのペアは纏める方法を教えて下さい'(_テーブル名,_one_side,_the_other,L2) :-
        P =.. [_テーブル名,_one_side,_the_other,_value],
        findsetof([_one_side,_the_other],(
                    call(P)),
                L1),
        append(_,[[_one_side,_the_other]|_],L1),
        findall(_value,(
                    call(P)),
                L2),
        ニ要素以上の逆順ならび(L2).

ニ要素以上の逆順ならび([A,B]) :-
        A @> B,!.
ニ要素以上の逆順ならび([A,B|R1]) :-
        A @> B,
        ニ要素以上の逆順ならび([B|R]).