このディレクトリの索引
http://toro.2ch.net/test/read.cgi/db/1343899481/651
#  2010年度の月毎の件数をまとめたデータですが 
#  累計を求めたいです。 
#   
#  月     2010年度 
#  01     1 
#  02     2 
#  03     1 
#  04     3 
#  05     2 
#  06     2 
#  07     2 
#  08     1 
#  09     2 
#  10     2 
#  11     2 
#  12     1 
#   
#  求めたい結果 
#  月     2010年度累計 
#  04     3 
#  05     5 
#  06     7 
#  07     9 
#  08     10 
#  09     12 
#  10     14 
#  11     16 
#  12     17 
#  01     18 
#  02     20 
#  03     21 
#   
#  これだけのデータから 
#  スタートを4月にして累計を求める方法は 
#  ありますでしょうか? 
#  よろしくお願いします。 
# 

'2010年度データ'('01',1).
'2010年度データ'('02',2).
'2010年度データ'('03',1).
'2010年度データ'('04',3).
'2010年度データ'('05',2).
'2010年度データ'('06',2).
'2010年度データ'('07',2).
'2010年度データ'('08',1).
'2010年度データ'('09',2).
'2010年度データ'('10',2).
'2010年度データ'('11',2).
'2010年度データ'('12',1).

月順序('04','05').
月順序('05','06').
月順序('06','07').
月順序('07','08').
月順序('08','09').
月順序('09','10').
月順序('10','11').
月順序('11','12').
月順序('12','01').
月順序('01','02').
月順序('02','03').
月順序('03','00').


'2010年度の月毎の件数をまとめたデータですが累計を求めたいです。'(_月,_累計件数) :-
        月別件数を得る('04',_月別件数ならび),
        累計表示(_月別件数ならび,0,_月,_累計件数).

月別件数を得る('00',[]).
月別件数を得る(_月,[[_月,_件数]|R2]) :-
        '2010年度データ'(_月,_件数),
        月順序(_月,_月_2),
        月別件数を得る(_月_2,R2).

累計表示([[_月,_件数]|R1],_累計件数_1,_月,_累計件数) :-
        _累計件数 is _累計件数_1 + _件数.
累計表示([[_,_件数]|R1],_累計件数_1,_月,_累計件数) :-
        _累計件数_2 is _累計件数_1 + _件数,
        累計表示(R1,_累計件数_2,_月,_累計件数).