在Haskell中合并类似的列表清单

Question

我需要将多个列表与常用元素合并为一个。我应该在清单内做到这一点。

例如：

INPUT： [[1,2,3]，[5,6]，[8,3,11]，[4,9,1]]

MY输出： [[1,2,3,8,3,11,1,2,3,4,9,1]，[]]

需要的输出： [[1,2,3 ，8,11,9]，[5,6]]

另一个例子：

INPUT： [[4]，[0]，[7,10]，[6]，[6]]

MY输出： [[6,6]，[]]

OUTPUT： [[4]，[0]，[7,10]，[6]]

我的代码：

mergeAllLists :: [[Integer]] -> [[Integer]] 
mergeAllLists (x:[]) = [x] 
mergeAllLists (x:[]:y) = [x] 
mergeAllLists (x:y:[]:_) = mergeOneToAll_ x [y] 
mergeAllLists (x:xs) = mergeAllLists (mergeOneToAll x xs) 

mergeOneToAll :: [Integer] -> [[Integer]] -> [[Integer]] 
mergeOneToAll _ [] = [[]] 
mergeOneToAll list (y:list_of_list) = (mergeLists list y) : (mergeOneToAll list list_of_list) 

Answer 1

mergeAllLists :: [[Integer]] -> [[Integer]] 
mergeAllLists = foldl mergeOneToAll [] 

mergeOneToAll :: [[Integer]] -> [Integer] -> [[Integer]] 
mergeOneToAll [] xs = [xs] 
mergeOneToAll (as:acc) xs = 
    if null $ intersect xs as then 
    as : mergeOneToAll acc xs 
    else 
    (as ++ xs) : acc 

我t虽然不是很有效（不是尾递归）。让我知道它是否需要更高效，我会尝试改进它。