球拍中的6个叶节点

Question

所以我有下面的代码来完美地实现(定义myleaf (内部节点'a (叶子节点5) (叶子节点6)。

如何实现更多数据的6叶节点？

    define-datatype bintree bintree?
  (leaf-node
    (datum number?)
  )
  (interior-node
   (key symbol?)
   (left bintree?)
   (right bintree?)
  )
)

Answer 1

我假设“6叶节点”是指一个6元树，其中每个非叶节点都有6个子节点。

(define-datatype bintree bintree?
     (leaf-node
       (datum number?)
     )
     (interior-node
      (key symbol?)
      (first  bintree?)
      (second bintree?)
      (third  bintree?)
      (fourth bintree?)
      (fifth  bintree?)
      (sixth  bintree?)
     )
   )

define-datatype基本上是这样工作的：

next next第一个参数:新datatype

• second参数的名称:将用于测试某事物是否为该类型的实例的函数的名称

• next:可以存在的此数据类型的所有不同种类，其成员的类型为

因此，在这种情况下，您只需为所需的6个子对象中的每一个添加新成员。