function - 有没有办法定义一个单词是否只有 "a"元音？

Question

我试图在 haskell 上创建一个函数，我知道该函数的定义如下:

justWithA : [Char] -> Bool
justWithA [] = True
justWithA (x:xs) | (x == "a") = x + justWithA xs                 
                 | else (x == "e") = False
                 | else (x == "i") = False
                 | else (x == "o") = False
                 | else (x == "u") = False

我认为有更好的方法来定义这个函数，只是不知道正确的方法......

Answer 1

当前的实现存在一些问题:

• 守卫不使用 else 关键字；
• x 是 Char，因此您与 x == 'a' 进行比较，而不是 x == “一”；
• x + justWithA xs 没有任何意义，因为 x 是 Char 并且您不能添加 Char和 Bool 在一起；和
• 如果字符串包含辅音，您的函数将会出错，因为这些辅音没有被任何保护覆盖。

您可以使用以下方法修复该功能:

justWithA : String -> Bool
justWithA [] = True
justWithA (x:xs)
    | x == <strong>'a'</strong> = <strong>justWithA xs</strong>
    | x == <strong>'e'</strong> = False
    | x == <strong>'i'</strong> = False
    | x == <strong>'o'</strong> = False
    | x == <strong>'u'</strong> = False
    | <strong>otherwise = justWithA xs</strong>

我们在这里只查找元音，如果有元音是 e、i、o 或 u，然后我们返回False。

我们可以将其简化为:

justWithA :: String -> Bool
justWithA = all <strong>(`notElem` "eiou")</strong>

或者如果您也想考虑大写:

justWithA :: String -> Bool
justWithA = all <strong>(`notElem` "eiouEIOU")</strong>