このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/391
#  {1] 授業単元:プログラミング 
#  [2] 問題文:  
#  くじの0等から4等までの本数と賞金は次の通りである。 
#  0等   1等  2等 3等 4等 
#  5      10    25   150  810  本数[本] 
#  10000 3000 400 100  0 賞金[円] 
#  0等から4等までの本数をそれぞれ配列honsuu[5]に代入。 
#  このくじの本数(合計)を計算しなさい。 
#  

くじ本数('0等',5).
くじ本数('1等',10).
くじ本数('2等',25).
くじ本数('3等',150).
くじ本数('4等',810).

くじ賞金('0等',10000).
くじ賞金('1等',3000).
くじ賞金('2等',400).
くじ賞金('3等',100).
くじ賞金('4等',0).


'くじの0等から4等までの本数と賞金は次の通りである。 #  0等   1等  2等 3等 4等 #  5      10    25   150  810  本数[本] #  10000 3000 400 100  0 賞金[円] #  このくじの本数(合計)を計算しなさい。'(_本数) :-
        findsetof(_くじ等級,(
                    くじ本数(_くじ等級,_)),
                _くじ等級ならび),
        findsum(_等級別賞金,(
                    member(_くじ等級,_くじ等級ならび),
                    くじ本数(_くじ等級,_等級別本数),
                    くじ賞金(_くじ等級,_等級別賞金)),
                    _等級別賞金 is _等級別賞金 * _等級別本数),
               _本数).