このディレクトリの索引

入力催促文(_入力催促文).

一行で多項を入力する(_入力された項目ならび) :-
        入力催促文(_入力催促文),                
        write(_入力催促文),
        get_line(Line),
        入力診断(Line,_入力された項目ならび),!.
一行で多項を入力する(_入力された項目ならび) :-
        一行で多項を入力する(_入力された項目ならび).

入力診断(Line,_入力された項目ならび) :-
        split(Line,[' ',',',':'],_入力された項目ならび_1),
        入力された項目検査(1,_入力された項目ならび_1,_入力された項目ならび,_エラー項ならび),
        all(_エラー項ならび,0),!.
入力診断(Line,_入力された項目ならび) :-
        write_fromatted('入力された行 "%t" から適切なデータを得ることができません\n',[Line]),
        write('再入力をお願いします\n'),
        fail.

入力された項目検査(_,[],[],[]) :- !.
入力された項目検査(N1,[A|R1],[B|R2],[C|R3]) :-
        項目検査(N,A,B,C),
        N2 is N1 + 1,
        入力された項目検査(N2,R1,R2,R3).

/*
項目検査(1,_項目1,_項目,0) :-
        変換(N,_項目1,_項目),!.
項目検査(1,_項目1,_,-1).
*/