小编Cod*_*Elf的帖子

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

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

• 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]