このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1357191974/656
#  お題:1から100000までの整をすべて足せ。 
#  すべて足したら、その合計を表示せよ。 
#   

'1から100000までの整数をすべて足せ。すべて足したら、その合計を表示せよ。' :-
        '1から100000までの整数をすべて足せ。すべて足したら、その合計を表示せよ。'(1,1).

'1から100000までの整数をすべて足せ。すべて足したら、その合計を表示せよ。'(100000,_合計) :-
        'すべて足したら、その合計を表示せよ。'(_合計),!.
'1から100000までの整数をすべて足せ。すべて足したら、その合計を表示せよ。'(N_1,_合計_1) :-
        N_2 is N_1 + 1,
        _合計_2 is _合計_1 + N_2,
        '1から100000までの整数をすべて足せ。すべて足したら、その合計を表示せよ。'(N_2,_合計_2).

'すべて足したら、その合計を表示せよ。'(_合計) :-
        writef('その合計は%t\n',[_合計]).