このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1299305530/558
#  create table aaa ( 
#  id integer not null, 
#  test text not null, 
#  test2 integer not null, 
#  unique (id,test) 
#  ); 
#   
#  create table bbb ( 
#  id integer not null, 
#  test text not null, 
#  test2 integer not null 
#  unique (id,test) 
#  ); 
#   
#  aaa 
#  id test test2 
#  10 aaa 100 
#  10 bbb 200 
#  10 ccc 100 
#  10 ddd 100 
#   
#  bbb 
#  id test test2 
#  10 aaa 200 
#  10 bbb 100 
#   
#  ほしい結果 
#  id test test2 
#  10 aaa 200 
#  10 bbb 100 
#  10 ccc 100 
#  10 ddd 100 
# 

aaa(10,111,200).
aaa(10,bbb,100).

bbb(10,aaa,200).
bbb(10,bbb,100).
bbb(10,ccc,100).
bbb(10,ddd,100).

ほしい結果(_id,_test,_test2) :-
        findall([_id,_test,_test2],(
                    aaa(_id,_test,_test2)),
                LL1),
        findall([_id,_test,_test2],(
                    bbb(_id,_test,_test2)),
                LL2),
        append(LL1,LL2,LL),
        findsetof([_id,_test],(
                    append(_,[[_id,_test]|_],LL)),
                LL3),
        findmax([_test2,_id,_test],(
                    append(_,[[_id,_test]|_],LL3),
                    append(_,[[_id,_test,_test2]|_],LL)),
                LL4),
        append(_,[[_test2,_id,_test]|_],LL4).