このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1299305530/505
#  ・DBMS名とバージョン 
#  SQLite 
#   
#  ・DBに入っているテーブルデータ 
#  ID DATA 
#  1  aaa 
#  2  bbb 
#  3  ccc 
#  4  ddd 
#  5  ccc 
#   
#  手持ちのデータ 
#  aaa、bbb、ddd 
#   
#  ・欲しい結果 
#  テーブルデータと手持ちのデータを比較して、 
#  手持ちのデータに存在しないデータを持つテーブルデータの行(ID3とID5)を削除したいのですが、 
#  どこのように書けばよいでしょうか 
# 

'テーブルデータと手持ちのデータを比較して、手持ちのデータに存在しないデータを持つテーブルデータの行(ID3とID5)を削除する'(_手持ちのデータならび) :-
        テーブル(_ID,_DATA),
        \+(member(_DATA,_手持ちのデータならび)),
        retract(テーブル(_ID,_DATA)),
        fail.
'テーブルデータと手持ちのデータを比較して、手持ちのデータに存在しないデータを持つテーブルデータの行(ID3とID5)を削除する'(_).