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

Question

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

函数应如何工作的示例：

我目前拥有的：

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)

Answer 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 功能。这些都可以在没有导入的情况下工作。

Remove repeating list elements using recursion and pattern matching in Haskell