このディレクトリの索引

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

'文字のリストの母音要素を一旦匿名変数に置き換え、その匿名変数を5つの母音で置換して得られる文字リスト'(_文字リスト,_母音を置換した文字列) :-
        文字リストの母音要素を匿名変数に置き換える(_文字リスト,_母音を匿名変数に置換した文字列),
        匿名変数に5つの母音で置換して得られる文字リスト(_母音を匿名変数に置換した文字列,_母音を置換した文字列).

匿名変数を5つの母音で置換して得られる文字リスト([],[]).
匿名変数を5つの母音で置換して得られる文字リスト([A|R1],[A|R2]) :-
        \+(var(A)),
        匿名変数を5つの母音で置換して得られる文字リスト(R1,R2).
匿名変数を5つの母音で置換して得られる文字リスト([A|R1],[B|R2]) :-
        var(A),
        母音(B),
        匿名変数を5つの母音で置換して得られる文字リスト(R1,R2).

文字リストの母音要素を匿名変数に置き換える([],[]).
文字リストの母音要素を匿名変数に置き換える([A|R1],[A|R2]) :-
        \+(母音(A)),
        文字リストの母音要素を匿名変数に置き換える(R1,R2).
文字リストの母音要素を匿名変数に置き換える([A|R1],['_'|R2]) :-
        母音(A),
        文字リストの母音要素を匿名変数に置き換える(R1,R2).

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