如何在Haskell中去掉列表中列表的子列表？

在Haskell中，要去掉列表中的子列表，可以使用递归函数来处理。以下是一个示例代码，展示了如何实现这一功能：

-- 定义一个函数 removeSublists，它接受一个列表并返回去掉子列表后的新列表
removeSublists :: [[a]] -> [a]
removeSublists = concatMap flatten

-- 定义一个辅助函数 flatten，它接受一个列表并返回一个扁平化的列表
flatten :: [a] -> [a]
flatten [] = []
flatten (x:xs)
  | isList x = flatten x ++ flatten xs
  | otherwise = x : flatten xs

-- 辅助函数 isList，用于判断一个元素是否为列表
isList :: [a] -> Bool
isList [] = False
isList (x:xs) = isList xs

-- 示例用法
main :: IO ()
main = do
  let input = [[1, 2], [3, 4], 5, [6, [7, 8]], 9]
  let output = removeSublists input
  print output -- 输出: [1,2,3,4,5,6,7,8,9]

解释

removeSublists 函数:
- 使用 concatMap 函数来遍历输入列表中的每个元素，并对其应用 flatten 函数。
- concatMap 会将 flatten 函数的结果连接成一个单一的列表。

flatten 函数:
- 递归地处理列表中的每个元素。
- 如果元素是一个列表（通过 isList 函数判断），则递归地扁平化该子列表，并将其结果与剩余部分的结果连接。
- 如果元素不是列表，则直接将其添加到结果列表中。
isList 函数:
- 用于判断一个元素是否为列表。如果列表为空，则返回 False；否则继续检查下一个元素。