我可以写charName'a'或'A'="Albert"吗？

Question

以下是我转载的例子:

charName :: Char - > String
charName'a'="Albert"
charName'b'="Broseph"
charName'c'="Cecil"
charName x ="尚未定义"

我可以进一步修改上面提到的代码,如下所示(不会编译):

charName :: Char - > String
charName'a'或'A'="Albert"
charName'b'或'B'="Broseph"
charName'c'或'C'="Cecil"
charName x或X ="Not定义了"

如果给出charName'a'或charName'A',则获取"Albert".

请指导如何以最短的方式编写上述代码.

Answer 1

另一种选择是:

charName :: Char -> String
charName ch 
 | ch `elem` "aA" = "Albert"
 | ch `elem` "bB" = "Broseph"
 | ch `elem` "cC" = "Cecil"
 | otherwise = "Not defined yet"