このディレクトリの索引
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,N,X,Nth1,Nth,M,X) :- M > N,!,fail.
総和(M,N,Y,Nth,Nth,M,X) :- X is Y + M.
総和(M,N,Y,Nth1,Nth,Z,X) :-
    M2 is M + 1,
    Y2 is Y + M,
    Nth2 is Nth1 + 1,
    総和(M2,N,Y2,Nth2,Nth,Z,X).