このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1274791771/500
#                No-色 
#  レコード1 001,赤 
#  レコード2  002,赤 
#  レコード3 003,青 
#  レコード4 004,青 
#  レコード5, 005,赤 
#  レコード6, 006,黒 
#   
#  このデータで、 『select 色,count(色 from テーブル group by 色 』とした時 
#  最大レコード数(この場合、赤の5)を取得したいのですが・・・ 
# 

定義された節数のもっとも多い色は(_色,_度数) :-
        findsetof(_色,テーブル(_No,_色),L1),
        findall([_度数,_色],(
                    member(_色,L1),
                    count(テーブル(_,_色),度数)),
                L2),
        findmax(_度数,member([_度数,_],L2),_最大度数),
        append(_,[[_度数,_色]|R],L2).