0

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

我想知道是否有人可以帮助我确定这是为什么？

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"]
4

2 回答 2

2

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

于 2013-02-12T15:07:25.927 回答
2

看来您只需要更改最后一行：

pattr (x:as) = (x: pattr as)
于 2013-02-12T15:07:47.183 回答