我想使用递归创建二叉树。我的下列代码出了什么问题？

Question

solution :: [[a]] -> [[a]]
solution (x: xs) = [y: ys | y <- x, ys <- solution xs]
solution []      = [[]]

Answer 1

声明： else部分中的p1 = root;应该在else语句之外，这样如果a==-1则返回NULL，左/右子项被标记为NULL。 除此之外，您的代码在构建二叉树时似乎是正确的。 希望这会有所帮助。