haskell - 有没有更好的方法来编写 "string contains X"方法？

Question

刚开始使用 Haskell 并意识到(据我所知)没有直接的方法来检查字符串以查看它是否包含较小的字符串。所以我想我应该尝试一下。

本质上，这个想法是检查两个字符串是否大小相同且相等。如果被检查的字符串较长，则递归地删除头部并再次运行检查，直到被检查的字符串长度相同。

其余的可能性我使用模式匹配来处理。这就是我想到的:

stringExists "" wordToCheckAgainst = False
stringExists wordToCheckFor "" = False
stringExists wordToCheckFor wordToCheckAgainst | length wordToCheckAgainst < length wordToCheckFor = False
                                               | length wordToCheckAgainst == length wordToCheckFor = wordToCheckAgainst == wordToCheckFor
                                               | take (length wordToCheckFor) wordToCheckAgainst == wordToCheckFor = True
                                               | otherwise = stringExists wordToCheckFor (tail wordToCheckAgainst)

Answer 1

如果您搜索Hoogle对于您正在寻找的函数的签名(String -> String -> Bool)，您应该看到 isInfixOf位列前茅的结果之一。