このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/291
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク): 
#    ユーザの入力した1文字に対して、「1」のとき「one」、「0」のとき「zero」 
#    それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し、再びユーザからキー入力を待つ。 
#  

'ユーザの入力した1文字に対して、「1」のとき「one」、「0」のとき「zero」 それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し、再びユーザからキー入力を待つ。' :-
        'ユーザの入力した1文字に対して'(_ユーザの入力した1文字),
        '「1」のとき「one」、「0」のとき「zero」 それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し'(_ユーザの入力した1文字).
'ユーザの入力した1文字に対して、「1」のとき「one」、「0」のとき「zero」 それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し、再びユーザからキー入力を待つ。' :-
        'ユーザの入力した1文字に対して、「1」のとき「one」、「0」のとき「zero」 それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し、再びユーザからキー入力を待つ。'.

'ユーザの入力した1文字に対して'(_ユーザの入力した1文字) :-
        write('1文字入力してください : '),
        get_char(_ユーザの入力した1文字),!.

'「1」のとき「one」、「0」のとき「zero」 それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し'(_ユーザの入力した1文字) :-
        '「1」のとき「one」と出力し'(_ユーザの入力した1文字).
'「1」のとき「one」、「0」のとき「zero」 それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し'(_ユーザの入力した1文字) :-
        '「0」のとき「zero」と出力し'(_ユーザの入力した1文字).
'「1」のとき「one」、「0」のとき「zero」 それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し'(_ユーザの入力した1文字) :-
        'それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し'(_ユーザの入力した1文字),
        fail.

'「1」のとき「one」と出力し'('1') :-
        write('one\n'),!.

'「0」のとき「zero」と出力し'('0') :-
        write('zero\n'),!.

'それ以外のとき、標準エラーに「0か1を入力して下さい」と出力し'(_) :-
        tell(stderr),
        write('0か1を入力して下さい\n'),
        told.