このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1274791771/596
#  ・SQL Server 2008 
#   
#  行 | 品名 | 個数  
#  --+-----+----  
#  1 | 商品1 |  2  
#  2 | 商品2 |  1  
#  3 | 商品3 |  1  
#  4 | 商品4 |  5  
#   
#  上記のようなテーブルがあるんだけど、下記のように個数の累計を取得したいです 
#   
#  行 | 品名 | 個数 | 累計 
#  --+-----+---- +----- 
#  1 | 商品1 |  2  |  2 
#  2 | 商品2 |  1  |  3 
#  3 | 商品3 |  1  |  4 
#  4 | 商品4 |  5  |  9 
#   
#  SUM使ってCASEでわけて合計すればよさげだけどうまく書けません 
#  教えてください 
# 

個数の累計を取得する :-
        findall([_行,_品名,_個数],テーブル(_行,_品名,_個数),LL),
        write('行 | 品名 | 個数 | 累計\n'), 
        write('--+-----+---- +----- \n'),
        個数の累計を取得する(LL,0).

個数の累計を取得する([],_) :- !.
個数の累計を取得する([[_行,_品名,_個数]|R],_累計1) :-
        _累計 is _累計1 + _個数,
        write_formatted('%t | %t |  %d  |  %d\n',[_行,_品名,_個数,_累計]),
        個数の累計を取得する(R,_累計).