このディレクトリの索引
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','04').


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

累計表示(_月_1,_累計件数_1,_月,_累計件数) :-
        '2010年度データ'(_月_1,_件数),
        _累計件数_2 is _累計件数_1 + _件数,
        月順序(_月_1,_月_2),
        累計表示(_月_1,_月_2,_累計件数_2,_月,_累計件数).

累計表示(_月,_,_累計件数,_月,_累計件数).
累計表示(_,'04',_累計件数,_月,_累計件数) :- !,fail.
累計表示(_月_1,_月_2,_累計件数_2,_月,_累計件数) :-
        累計表示(_月_2,_累計件数_2,_月,_累計件数).