このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/240
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文: 
#  http://ime.nu/codepad.org/GPP4IwcH 
#  上記のmain関数を修正して、1から5までの和と積を求めるプログラムに修正しなさい。 
#  ただし、add関数の変数nを変数n1、multi関数の変数nを変数n2に変え、これらの変数をグローバル変数としてmain関数の前で宣言。 
#  

'1から5までの和と積を求める'(_1から5までの和,_1から5までの積) :-
        '1から5までの和と積を求める'(1,1,_1から5までの和,1,_1から5までの積).

'1から5までの和と積を求める'(5,_1から5までの和,_1から5までの和,_1から5までの積,_1から5までの積) :- !.
'1から5までの和と積を求める'(N,_1から5までの和_1,_1から5までの和,_1から5までの積_1,_1から5までの積) :-
        N_2 is N + 1,
        _1から5までの和_2 is _1から5までの和_1 + N_2,
        _1から5までの積_2 is _1から5までの積_1 * N_2,
        '1から5までの和と積を求める'(N_2,_1から5までの和_2,_1から5までの和,_1から5までの積_2,_1から5までの積).