相关疑难解决方法(0)

如何拼合这样的嵌套列表:

[1, 2, 3, 4] == flatten [[[1,2],[3]],[[4]]]

我必须编写一个使列表列表变平的函数.

例如flatten [] = []或flatten [1,2,3,4] = [1,2,3,4]或flatten [[1,2],[3],4,5]] = [1,2,3,4,5]

我在能够根据扁平功能给出的类型匹配时遇到问题.

这就是我所拥有的:

data A a = B a | C [a] deriving (Show, Eq, Ord)

flatten::(Show a, Eq a, Ord a)=>A a -> A a
flatten (C []) = (C [])
flatten (C (x:xs) ) = (C flatten x) ++ (C flatten xs)
flatten (B a) = (C [a])

从我可以告诉的问题是,++运算符期望其两个参数的列表,并且我试图给它一些类型A.我添加了A类型,因此函数可以获得单个元素或元素列表.

有没有人知道以不同的方式做到这一点,或解释我可以做些什么来修复类型错误？