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