删除列表中的元音

Question

删除列表中的元音

编写一个删除元音（String，NoVowelsString）的程序，删除给定字符串中的所有元音。

到目前为止，我已经有了这个条件vowel(X):- member(X,[a,e,i,o,u])。然后我想到了删除其他列表中所有元素的那个：

delete2([],L1,L1).delete2([H|T],L1,L3) :-
   delete2(H,L1,R2),
   delete2(T,R2,L3).

所以有这两个我认为我可以为那些被删除的元素设置一个条件，他们必须成为其中的一员[a,e,i,o,u]。虽然我还没有到达任何地方。

Answer 1

这里是使用DCG的解决方案。注意如何获得'输出'（没有参数传递，只有差异列表）novowels --> ("a";"e";"i";"o";"u"), !, novowels.% or ..% novowels --> [C], {memberchk(C, "aeiou")}, !, novowels.novowels, [C] --> [C], !, novowels.novowels --> [].我必须承认第二次削减不喜欢我，但似乎需要。测试：?- phrase(novowels, "abcdefghilmnopq", L),format('~s',[L]).bcdfghlmnpqL = [98, 99, 100, 102, 103, 104, 108, 109, 110|...].编辑关于第二个剪切，似乎需要'左手'符号：如果我用参数编码，没有剪切，我得到一个正确的解析：novowels(Cs) --> ("a";"e";"i";"o";"u"), !, novowels(Cs).% novowels(Cs) --> [C], {memberchk(C, "aeiou")}, !, novowels(Cs).novowels([C|Cs]) --> [C], novowels(Cs).novowels([]) --> [].测试：?- phrase(novowels(L), "abcdefghilmnopq"),format('~s',[L]).bcdfghlmnpqL = [98, 99, 100, 102, 103, 104, 108, 109, 110|...] ;false.我想知道这是否是DCG翻译的错误，或者（更可能）我的错...