このディレクトリの索引

# お題:あるCUIプログラムの標準出力を少しずつ読み込みながら、小文字をすべて大文字に変換して出力する。 # 'あるCUIプログラムの標準出力を少しずつ読み込みながら、小文字をすべて大文字に変換して出力する'(_あるCUIプログラム) :- open(pipe(_あるCUIプログラム),read,Instream), '標準出力を少しずつ読み込みながら、小文字をすべて大文字に変換して出力する'(Instream), close(Instream). '標準出力を少しずつ読み込みながら、小文字をすべて大文字に変換して出力する'(Instream) :- at_end_of_stream(Instream),!. '標準出力を少しずつ読み込みながら、小文字をすべて大文字に変換して出力する'(Instream) :- 小文字をすべて大文字に変換して出力する(Instream). 小文字をすべて大文字に変換して出力する(Instream) :- get_char(Instream,_文字), 小文字を大文字に変換して出力する(文字), '標準出力を少しずつ読み込みながら、小文字をすべて大文字に変換して出力する'(Instream). 小文字を大文字に変換して出力する(文字) :- 小文字を大文字に変換して(_文字,_大文字), 出力する(_文字). 小文字を大文字に変換して(_小文字,_大文字) :- 小文字ならば大文字に変換する(_小文字,_大文字). 大文字に変換する(_文字,_文字) :- 小文字以外は変換しない(_文字). 小文字ならば大文字に変換する(_小文字,_大文字) :- 小文字(_小文字), 大文字に変換する(_小文字,_大文字). 小文字(_小文字) :- _小文字 @>= a, _小文字 @=< z. 大文字に変換する(_小文字,_大文字) :- char_code(_小文字,_小文字コード), _大文字コード is _小文字コード - 32, char_code(_大文字,_大文字コード). 小文字以外は変換しない(_文字) :- \+(小文字(_文字)). 出力する(_文字) :- put_char(_文字).