string - 显示 haskell 中重复的单词列表

Question

我需要能够编写一个函数，显示字符串中的重复单词，并按其出现顺序返回字符串列表，并忽略非字母

例如在拥抱提示时

repetitions :: String -> [String]

repetitions > "My bag is is action packed packed."
output> ["is","packed"]
repetitions > "My name  name name is Sean ."
output> ["name","name"]
repetitions > "Ade is into into technical drawing drawing ."
output> ["into","drawing"]

Answer 1

要将字符串拆分为单词，请使用 words 函数(在 Prelude 中)。要消除非单词字符，请使用 Data.Char.isAlphaNum 进行过滤。将列表及其尾部压缩在一起以获得相邻对(x, y)。折叠列表，得到一个包含所有 x 的新列表，其中 x == y。

类似:

repetitions s = map fst . filter (uncurry (==)) . zip l $ tail l
  where l = map (filter isAlphaNum) (words s)

我不确定这是否有效，但它应该可以给您一个粗略的想法。