列表列表上的操作|怎么样

Question

当我在Haskell书中看到concat函数时，我想知道如何在Haskell中展平下面的列表。在Python中，我可以这样做，因为我可以在函数中检查它的类型。但在哈斯克尔，我做不到。我如何压扁下面的列表？

input: [[1, 2], [[2, 3], 5], [[[2, 3], [4, 5]], [2, 3]]]
output: [1, 2, 2, 3, 5, 2, 3, 4, 5, 2, 3]

Answer 1

正如已经指出的那样，你不能在Haskell中拥有任意嵌套列表。最接近的东西（没有使用花式pragma的脏类型hacks）将是这样的：

data Nested a = L a | B [Nested a]

flatten :: Nested a -> [a]
flatten (L x) = [x]
flatten (B xs) = concatMap flatten xs  

print $ flatten $ B[B[L 1,L 2],B[B[L 2,L 3],L 5],B[B[B[L 2,L 3],B[L 4, L 5]],B[L 2,L 3]]]
--[1,2,2,3,5,2,3,4,5,2,3]

Answer 2

您无法在haskell中创建具有不同深度的列表。它不会发生变形。 [[a]]与[[[a]]]的类型不同。此功能将解决您的问题，但仅限于具有相同深度的列表。

flat::[[a]] -> [a]
flat [] = []
flat l:ls = l ++ flat ls