根据 Haskell 列表中 n 的条件删除元素 n-1、n 和 n+1

假设我有一个包含所有整数的列表2 to 20.

[2 .. 20]

我想使用函数过滤列表f x（或者它是一个谓词？我不太习惯 Haskell 编程中使用的所有术语）。如果元素在位置n对于该函数等于 truef，我想删除位置上的元素n-1, n and n+1.

例子： 假设列表中位置 4 的元素[2 .. 20]，这等于6, 等于该函数的 truef。然后我想删除位置上的元素3, 4 and 5，等于5, 6 and 7分别。 所以我的最终清单如下：

[2,3,4,8,9,10,11,12,13,14,15,16,17,18,19,20]

我是一个没有经验的 Haskell 程序员，只是为了好玩。我曾考虑过使用 lambda 函数作为谓词，但我不太确定如何去做。我也考虑过使用像这样的函数remove xs ys删除所有元素xs这也是一个元素ys，但我也不知道该怎么做。

任何帮助，将不胜感激！

编辑：我意识到为了产生我想要的结果而删除两个相邻元素是错误的。此外，最好只更改受影响元素的值（位于位置的元素）n and n-1) to 0，或以其他方式标记/标记它们，而不是完全删除它们。原因是我想继续“删除”元素，直到列表不再有任何适合谓词的元素（及其前面的元素）。我只想将它们“删除”原来的名单。 由于我的方法与原始问题相比发生了很大变化，因此我将发布一个新问题来反映我的新方法。我要感谢您的所有回复，我从您的回答中学到了很多东西。谢谢你！

编辑2：这是我的新问题：当 n 符合谓词时，删除 Haskell 列表中位置 n 和 n-1 处的元素 https://stackoverflow.com/questions/21185550/remove-elements-at-positions-n-and-n-1-in-a-haskell-list-when-n-fits-a-predicat

您可以对多个元素进行模式匹配，然后将过滤器应用于中间的元素。

eitherside :: (Int->Bool) -> [Int] -> [Int]
eitherside f (i1:i2:i3:is) = if (f i2) 
    then eitherside f is 
    else i1 : (eitherside f (i2:i3:is))
eitherside f is = is
*Main> eitherside (==4) [1..10]
[1,2,6,7,8,9,10]
*Main> eitherside (==5) [1..10]
[1,2,3,7,8,9,10]
*Main> eitherside (==6) [1..10]
[1,2,3,4,8,9,10]

不是这样的（我原来的帖子）：

eitherside :: (Int->Bool) -> [Int] -> [Int]
eitherside f (i1:i2:i3:is) = if (f i2) 
    then eitherside f is 
    else [i1,i2,i3] ++ (eitherside f is)
eitherside f is = is
*Main> eitherside (==5) [1..10]
[1,2,3,7,8,9,10]

这个坏的碰巧对 5 有效，但对 6 失败，因为我在“else”分支中跳过了它。