递归模式匹配，输出问题

Question

我正在尝试使用模式匹配和递归来将列表中的某些单词替换为其他单词。模式匹配在所有情况下都不起作用，并且在所有情况下，我的代码都不会使用模式匹配生成更改的字符串列表。

我想知道是否有人可以帮我确定原因是什么？

pattr :: [[Char]] -> [[Char]]
pattr [] = []
pattr ("you":as) = ("u":pattr as)
pattr ("see":"you":as) = ("seaya":pattr as)
pattr ("by":"the":"way":as) = ("btw":pattr as)
pattr ("laugh":"out":"loud":as) = ("lol":pattr as)
pattr ("for":"your":"information":as) = ("fyi":pattr as)
pattr (x:as) = (x:as)

示例：

GHCi> pattr ["milk", "see", "you", "soon"] 
> ["milk", "see", "you", "soon"] 
GHCi> pattr ["see", "you", "soon"]
> ["cya", "soon"]

Answer 1

你不是在你的最后一个案例中递归。因此，如果列表中的第一个单词与任何模式都不匹配，它就会停止，并且不会检查列表中稍后出现的单词。

Answer 2

您似乎只需要更改最后一行：

pattr (x:as) = (x: pattr as)