你如何在Clojure中创建二叉搜索树？

Question

在Scheme中,我可以使用define-struct二进制搜索树,但是你如何在Clojure中做到这一点？

Answer 1

您可以使用structmaps.定义一个:

(defstruct bintree :left :right :key)

制作一个实例:

(struct-map bintree :left nil :right nil :key 0)

然后,您可以像这样访问结构中的值:

(:left tree)

等等

或者您可以创建新的访问者功能:

(def left-branch (accessor bintree :left))

并使用它:

(left-branch tree)