我写了这个函数来删除列表中以'{'开头并以'}'结尾的任何单词：
delete []=[]
delete c@(x:xs) | head x=='{' && last x=='}'= rep x " " (unwords c)
| otherwise = delete xs
我正在使用辅助函数rep：
rep _ _ [] = []
rep a b s@(x:xs)= if isPrefixOf a s
then b++rep a b (drop(length a)s)
else x: rep a b xs
当我在下面的字符串列表上调用删除函数时，它会成功删除第一个字符串“author”，但留下另外两个“reference”，“title”：
[“{author}”，“has”，“声明”，“that”，“{reference}”，“{title}”，“has”，“已”，“已发布”，“...... “]
请告诉我，我的功能中缺少？
谢谢，
奥马