小编Dic*_*rns的帖子

我有一个树的数据结构:

数据树a = NodeT a(树a)(树a)| EmptyT

我需要创建一个函数来返回列表列表,其中列表的每个元素代表树的级别.例如,从这个:

          1
         / \
       2     3
      / \   / \
     4   5 6   7     

对此:[[1],[2,3],[4,5,6,7]]

该函数必须具有以下形式:

                     f :: Tree a -> [[a]]

如何使用递归？

任何人？

谢谢