このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1258158172/862
#  [1] 授業単元:C言語とアルゴリズム 
#  [2] 問題文(含コード&リンク): 
#   課題 リスト処理 
#    実行結果のようにキーボードから入力して整数を入力順にリストに格納し、入力値に 
#   番号を付けて表示するプログラムを作成しなさい.ただし入力の終了はCtrl+dで行えるようにすること。 
#    入力する値や個数が実行例と異なる場合にも正しく動作するようにすること. 
#   必ず1個以上の整数が入力されるとする. 
#   
#   [実行結果] 
#   整数を順番に入力してください. 
#   5 
#   10 
#   15 
#   20 
#   25 
#   入力データは以下の通りです. 
#   [1] 5 
#   [2] 10 
#   [3] 15 
#   [4] 20 
#   [5] 25 
#   
#  

キーボードから入力して整数を入力順にリストに格納し、入力値に番号を付けて表示する :-
    キーボードから入力して整数を入力順にリストに格納する(L),
    入力値に番号を付けて表示する(1,L).

キーボードから入力して整数を入力順にリストに格納する([]).
キーボードから入力して整数を入力順にリストに格納する([N|R]) :-
    get_integer(N),
    キーボードから入力して整数を入力順にリストに格納する(R).

入力値に番号を付けて表示する(1,[]).
入力値に番号を付けて表示する(N,[A|R]) :-
    write_formatted('[%t] %t\n',[N,A]),
    N2 is N + 1,
    入力値に番号を付けて表示する(N2,R).