このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1286978599/628
#  [1] 授業単元:基礎プログラミング  
#  [2] 問題文(含コード&リンク) 
#  問題2 キーボードから整数を1つ入力し、その度にそれまでの合計値を表示するプログラムを作成せよ。 
キーボードから整数を1つ入力し、その度にそれまでの合計値を表示する(_合計値) :-
        キーボードから整数を1つ入力し(_整数),
        キーボードから整数を1つ入力し、その度にそれまでの合計値を表示する(_整数,_整数,_合計値).

キーボードから整数を1つ入力し、その度にそれまでの合計値を表示する(_整数,_合計値,_合計値).
キーボードから整数を1つ入力し、その度にそれまでの合計値を表示する(_,_合計値1,_合計値) :-
        キーボードから整数を1つ入力し(_整数),
        _合計値2 is _整数 + _合計値1,
        キーボードから整数を1つ入力し、その度にそれまでの合計値を表示する(_整数2,_合計値2,_合計値).

キーボードから整数を1つ入力し(_整数) :-
        get_line(Line),
        キーボードから整数入力診断(Line,_整数),!.
キーボードから整数を1つ入力し(_整数) :-
        キーボードから整数を1つ入力し(_整数).

キーボードから整数入力診断(Line,_整数) :-
        atom_to_term(Line,_整数,_),
        integer(_整数),!.
キーボードから整数入力診断(Line,_整数) :-
        write_formatted('入力された %t からは整数が得られませんでした\n',[Line]),
        fail.