使用Haskell中的递归和模式匹配删除重复列表元素

Question

我正在创建一个函数来删除列表中连续出现两次或多次的元素.它会替换它们一次.我只使用递归和模式匹配(没有库列表函数).

该函数应如何工作的示例:

• unrepeat [True,True,True,True] - > [True]
• unrepeat [1,1,2,1,3,3,3] - > [1,2,1,3]

到目前为止我所拥有的:

unrepeat :: Eq a => [a] -> [a]
unrepeat [] = []
unrepeat [x] = [x]
unrepeat (x:xs) = x : [ k | k <- unrepeat(xs), k /=x]

Answer 1

我相信你的实现将删除列表中的所有重复项,看起来你只想在列表中保留一个元素,如果它不等于下一个元素.

尝试一下:

unrepeat :: Eq a => [a] -> [a]
unrepeat [] = []
unrepeat [x] = [x]
unrepeat (x1:x2:xs) = if x1 == x2 then unrepeat(x2:xs) else x1:unrepeat(x2:xs)