このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/886
#   
#  [1] 授業単元：プログラミング実習  
#  [2] 問題文(含コード&リンク)：http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10254.txt 
# ★演習問題1-9*
# 1〜10までの整数の和を求めるプログラムをポインタを使って求めよ．(時
# 間があり，可能であれば，平均も求めよ：こちらは任意課題とする)，

総和(_数ならび,_何番目,_まででは,_総和) :-
        総和(_数ならび,0,1,_何番目,_まででは,_総和).

総和([M|R],Y,Nth,Nth,M,X) :-
        X is Y + M.
総和([M|R],Y,Nth1,Nth,Z,X) :-
        M2 is M + 1,
        Y2 is Y + M,
        Nth2 is Nth1 + 1,
        総和(R,Y2,Nth2,Nth,Z,X).