返回一个由Haskell中的节点组成的无限树

Question

鉴于以下简单 Tree

 data Tree = 
    Leaf
  | Node Tree Tree
  deriving (Eq, Show)

有没有办法使用递归返回无限数量的节点(一个Tree只有Nodes,没有叶子)？

到目前为止,我只知道如何返回数据类型,如Boolean和Integer.我如何开始返回Tree？

Answer 1

infiniteTree :: Tree
infiniteTree = Node infiniteTree infiniteTree