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

'2010年度の月毎の件数をまとめたデータですが累計を求めたいです。'(_月,_累計件数) :-
        _月順序 = ['04','05','06','07','08','09','10','11','12','01','02','03'],
        月別件数を得る(_月順序,_月別件数),
        累計表示(_月順序,_月別件数,_月,_累計件数).

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

累計表示(_月順序,_月別件数,_月,_累計件数) :-
        append(L1,[_件数|R],_月別件数),
        length(L1,_nth0),
        nth0(_nth0,_月順序,_月),
        sum([_件数|L1],_累計件数).

sum([],0).
sum([N|R],S) :-
        sum(R,S_1),
        S is S_1 + N.