このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1269438098/173
#  宿題で 
#  コンソール上で入力した文字によって、以下の出力をするプログラムを作成する。 
#   
#  入力が"a"→(^_^) 
#  入力が"b"→(T_T) 
#  入力が"c"→(≧∇≦) 
#  入力が"A"→(≧Δ≦) 
#  その他の入力→(?_?) 
#   
#  ※追加: 繰り返し入力を待ち受け、zが入力されたときのみ終了すること。 
#  というのが出ました。 
#  まったく分からないので教えてください。 
# 

コンソール上で入力した文字によって、顔文字を出力をする :-
   rawmode,
   repeat,
   get_char(X),
   入力文字から顔文字に変換して表示する(X),
   norawmode.

入力された文字を顔文字に変換して表示する(X) :-
   zが入力されたときのみ終了(X),!.
入力された文字を顔文字に変換して表示する(X) :-
   顔文字変換(X,Y),
   write_formatted('%t',[Y]),
   fail.

zが入力されたときのみ終了(z).

顔文字変換(a,'(^_^)') :- !.
顔文字変換(b,'(T_T) '):- !.
顔文字変換(c,' (≧∇≦) ') :-!. 
顔文字変換('A','(≧Δ≦).)'):- !.
顔文字変換(_,'(?_?)').