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

【问题标题】：Remove repeating list elements using recursion and pattern matching in Haskell在 Haskell 中使用递归和模式匹配删除重复的列表元素
【发布时间】：2018-05-11 17:50:02
【问题描述】：

我正在制作一个函数，用于删除列表中连续出现两次或多次的元素。它用一次替换它们。我只使用递归和模式匹配（没有库列表函数）。

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

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]

【问题讨论】：

标签： list haskell recursion repeat

【解决方案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)

【讨论】：

你可以写unrepeat (x1:xs@(x2:_)) = bool id (x1:) (x1 /= x2) $ unrepeat xs，但它的可读性有些欠缺。

【解决方案2】：

嗯，我有三个，一个标准递归，一个 foldr 递归和一个列表理解。每个列表都一样，包括布尔值。

首先，一个标准的递归

rd [] = []; rd (x:xs) = x: rd (filter (/=x) xs)

这是相当有效的。它通过过滤掉匹配项来减少列表的最后一个头部。

减少有助于折叠。

rd2 ls = foldr (\x acc -> x:filter (/=x) acc) [] ls

这个foldr 与之前的rd 完全相同。它更简洁，因为停止条件是隐式的，即列表的末尾。

列表推导也隐式停止。

rd3 ls = [d|(z,d)<- zip [0..] ls,notElem d $ take z ls]

删除串联列表中的重复项是union 函数。这些都可以在没有导入的情况下工作。

【讨论】：