このディレクトリの索引
#  
#  入力しつつある値を確認しながらの入力。
#  

入力しつつある値を確認しながらの入力(L) :-
        入力しつつある値を確認しながらの入力([],L),!.

入力しつつある値を確認しながらの入力(L1,L) :-
        writef('%t : ',[L1]),
        値を得る(_値),
        append(L1,[_値],L2),
        入力しつつある値を確認しながらの入力(L2,L).
入力しつつある値を確認しながらの入力(L,L) :-
        値を得ることに失敗したら終了する.

値を得る(_値) :-
        仮に,
        get_line(_値),
        \+(_値=''),!.
値を得る(_) :-
        仮に,
        fail.


仮に.

値を得ることに失敗したら終了する.