このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1337692704/456
#  【 課題 】http://ime.nu/ideone.com/hRQD87 
#  try catch 
#  【 Ver 】1.7.0_07 
#  【 形態 】Javaアプリケーション 
#  【 期限 】27日 11:00まで 
#  よろしくお願いします 
# 
#   
#  問題2:ある文字列が標準入力されたとき,次のような変換を行うプログラムKadai02.java を作成せ
#  よ.String クラスの,charAt メソッド,length メソッド,valueOf メソッドなどを使うとよい.
#   ’a’ ならば’x’,それ以外の文字ならば’o’ に置き換える.
#   空白は空白のままとする.
#   ”ab Adaf”という文字列であれば,”xo ooxo”に変換される.
#   

'ある文字列が標準入力されたとき,次のような変換を行う.
’a’ ならば’x’,それ以外の文字ならば’o’ に置き換える.
空白は空白のままとする.
"ab Adaf"という文字列であれば,"xo ooxo"に変換される.' :-
        ある文字列が標準入力されたとき(_ある文字列),
        '’a’ ならば’x’,それ以外の文字ならば’o’ に置き換える.空白は空白のままとする.'(_ある文字列,_変換された文字列),
        writef('%t',[_変換された文字列]).

ある文字列が標準入力されたとき(_ある文字列) :-
        get_line(_ある文字列).

'’a’ ならば’x’,それ以外の文字ならば’o’ に置き換える.空白は空白のままとする.'(_ある文字列,_変換された文字列) :-
        findall(_変換された文字,(
                    sub_atom(_ある文字列,_,1,_,_文字),
                    '文字が’a’ ならば’x’,それ以外の文字ならば’o’ に置き換える.空白は空白のままとする.'(_文字,_変換された文字)),
                L),
        atomic_list_concat(L,_変換された文字列).

'文字が’a’ ならば’x’,それ以外の文字ならば’o’ に置き換える.空白は空白のままとする.'(a,x) :- !.
'文字が’a’ ならば’x’,それ以外の文字ならば’o’ に置き換える.空白は空白のままとする.'(' ',' ') :- !.
'文字が’a’ ならば’x’,それ以外の文字ならば’o’ に置き換える.空白は空白のままとする.'(_,o).