このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/488
#  {1] 授業単元:プログラミング演習  
#  [2] 問題文:  
#  http://ime.nu/codepad.org/8gKIcGy2 
#  上記のプログラムを参考にし、文字型配列moji[15]を宣言し、初期値として"one-two-three"を代入すると 

#  "one,two,three"と出力されるプログラムを作成しなさい。 
#  

'文字列中の-を,に変換する'(_文字列,_変換された文字列) :-
        findall(_文字_1,(
                    sub_atom(_文字列,_,1,_,_文字),
                    '-を,に変換する'(_文字,_文字_1)),
                Chars),
        atom_chars(_変換された文字列,Chars).

'-を,に変換する'('-',',') :- !.
'-を,に変換する'(_文字,_文字).