如何将一个句子(String)分解成一个列表([String])？

Question

我有以下代码:

    realWord :: String -> String
    realWord s = if elem (map toLower s) ["the","a","of","in","at"] then "" else (map toLower s)

这是为了测试像"教父"这样的字符串是否包含任何数量的琐碎单词,例如"the".然而,当我把"教父"放入函数时,显然它给出了这个字符串不包含在列表中,并再次吐出句子.

如何将"教父"这句话打破成单词列表,我可以单独测试然后再将它们重新组合在一个句子中？

输入"教父"的所需输出是"教父".

Answer 1

您可以使用Prelude功能words和unwords:

realWord = unwords . filter (`notElem` trivial) . words . toLower
    where trivial = ["the","a","of","in","at"]