erlang - 返回 Erlang 中的元音列表

Question

我在 Erlang 中遇到了一个小问题。我想返回一个字符串的所有元音列表。例如:

vowels:conditional("AGGEHA").
["A","E","A"]

这里是建议的代码:

-module(vowels).
-compile([export_all]).

isvowel('') -> false;
isvowel(C) -> if
                  C =:= "A" -> true;
                  C =:= "E" -> true;
                  C =:= "I" -> true;
                  C =:= "O" -> true;
                  C =:= "U" -> true;
                  true -> false
              end.

conditional([]) -> [];
conditional([A|T]) -> case isvowel(A) of
                          true -> [A] ++ conditional(T);
                          false -> [1] ++ conditional(T)
                      end.

问题是当我使用 conditional 函数时，它总是返回 false (或者在这种情况下，根据字符串的长度返回 1 的列表(我将其用作调试器))。任何人都知道如何解决这个问题？

Answer 1

您可以使用标准 lists:filter/2 function或对此的列表理解，以及使用 lists:member/2 function用于确定字符是否为元音字母:

conditional(String) ->
    lists:filter(fun(C) -> lists:member(C, [$A,$E,$I,$O,$U]) end, String).

或

conditional(String) ->
    [C || C <- String, lists:member(C, [$A,$E,$I,$O,$U])].

给定您的示例输入 "AGGEHA" 这两个都返回字符列表 "AEA"，但是如果您真的希望它们将每个元音作为字符串返回 ["A","E","A"] 就像您展示的那样，通过将返回的字符放在列表中，最简单的方法是使用列表推导来做到这一点:

conditional(String) ->
    [[C] || C <- String, lists:member(C, [$A,$E,$I,$O,$U])].

通过该更改，您将获得您请求的原始结果:

1> vowels:conditional("AGGEHA").
["A","E","A"]