このディレクトリの索引

#  http://stackoverflow.com/questions/7542406/
#  ここで私が何をしたいです。
#  私は文字のリストを持っている（基本的に単語）と私はアンダースコアで
#  単語に母音を代入する['_']と新しいリストを返します。
#  例：
#  
#  ?- サブ([s,e,g,e,d],A).
#  A = [s,_,g,_,d]
#  ここで私が試みたが、述語から、それが終了するが、それがすべてを解体し、
#  それが出力文字列なしで目標を見つけたことを宣言し呼び出すときに、
#  それが最終的に折返しのために新しいリストを作成し、何です！...
#  私が使用されるアルゴリズムは以下のとおりです。リストの要素を選択し、
#  それが母音であるかどうかをチェックし、新しいリストに['_']または要素自体を
#  追加。


文字リストの母音要素をアンダースコアに置き換える([],[]).
文字リストの母音要素をアンダースコアに置き換える([A|R1],[A|R2]) :-
        \+(母音(A)),
        文字リストの母音要素をアンダースコアに置き換える(R1,R2).
文字リストの母音要素をアンダースコアに置き換える([A|R1],['_'|R2]) :-
        母音(A),
        文字リストの母音要素をアンダースコアに置き換える(R1,R2).

母音(a).
母音(e).
母音(i).
母音(o).
母音(u).