function - 不导入模块不区分大小写。我需要原始输出而不是较低的输出

Question

这是我的代码:

x = ["Hello","Nice","WELCOME"]
y = "HELLO"
app x y = filter (isInfixOf (map to Lower y)) (map (map toLower) x)

输出:应用 x y -> [“你好”]

我需要原始输出(“HELLO”)而不是没有导入模块的较低输出。--

谢谢

Answer 1

您应该只在过滤条件中映射到Lower，而不是对元素本身执行映射:

app :: [String] -> String -> [String]
app xs y = filter (isInfixOf (map toLower y) <strong>. map toLower</strong>) xs

请注意，使用 toLower x == toLower y 不是不区分大小写匹配的好方法:某些字符没有大写/小写变体，并且以不区分大小写的方式匹配两个字符串的规则更加复杂。通常一个人使用 toCaseFold :: Text -> Text规范化文本以进行区分大小写的匹配。。例如:

ghci> map toLower "straße" == map toLower "strasse"
False
ghci> toCaseFold "straße" == toCaseFold "strasse"
True