このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1299305530/846
#  あるカラムの重複のみを外したものをSELECTするにはどうとればいいですか? 
#   
#  kadenテーブル 
#  id item price 
#  1 パソコン 100000 
#  2 パソコン 80000 
#  3 デジカメ 50000 
#  4 プリンター 20000 
#  5 デンワ 6000 
#   
#  結果 
#  1 パソコン 100000 
#  3 デジカメ 50000 
#  4 プリンター 20000 
#  5 デンワ 6000 
#   
#  パソコンを区別するのはidとpriceがありますがidが若い方でお願いします 
# 
# 

'あるカラムの重複のみを外したものをSELECTする' :-
        findsetof(_item,(
                    kaden(_id,_item,_price)),
                  L),
        append(_,[_item|_],L),
        第一解のみ取得(_id,_item,_price).

第一解のみ取得(_id,_item,_price) :-
        kaden(_id,_item,_price),!.