このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1299305530/7
#  よくある質問2 
#   
#  (問) 
#  key   data 
#  ---------------- 
#  1     a 
#  1     a 
#  1     b 
#  1     b 
#  1     a 
#  2     b 
#  2     a 
#  2     a 
#   
#  というテーブルから 
#   
#  key   a   b 
#  -------------------- 
#  1    3   2 
#  2    2   1 
#   
#  というExcelのピボットの様なデータを取得したいのですが、どういうSQLになりますか? 
#  a,bというのは固定なので、仮にcというデータがあっても無視して構いません。 
#   
#  (答) 
#  SELECT key, 
#      SUM(CASE data WHEN 'a' THEN 1 END) AS a, 
#      SUM(CASE data WHEN 'b' THEN 1 END) AS b 
#  FROM table 
#  GROUP BY key 
#  ORDER BY key 
#  ; 
# 

'Excelのピボットの様なデータを取得したい' :-
        findsetof(_data,table(_,_data),L1),
        findsetof(_key,table(_key,_data),L2),
        append(_,[_key|R],L2),
        findall(Count,
                    count((append(_,[_data|_],L1),table(_key,_data)),Count),
                L3),
        concat_atom([_key|L3],',',S),
        write_formatted('%t\n',[S]),
        R = [].