このディレクトリの索引

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

'文字のリストの母音要素を5つの母音で置換して得られる文字リスト'(_文字リスト,_母音を置換した文字列) :-
        母音要素を5つの母音で置換する(_文字リスト,_母音を置換された文字列).

母音要素を5つの母音で置換する([],[]).
母音要素を5つの母音で置換する([A|R1],[A|R2]) :-
        \+(母音(A)),
        母音要素を5つの母音で置換する(R1,R2).
母音要素を5つの母音で置換する([A|R1],[B|R2]) :-
        母音(A),
        母音(B),
        母音要素を5つの母音で置換する(R1,R2).

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