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

有帮助吗?

解决方案

您可以使用结构图。定义一个:

(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)

其他提示

我不知道Clojure,但是我打赌它与你在没有 define-struct 的Scheme中的方式相同......只是将左右分支合在一起。为了找到一些东西,递归直到你击中一个原子。

但是,严肃地说,结构图听起来像你想要的。我找到了这个页面。寻找大约一半的结构图。

最简单的方法是使用已经在语言中定义的树(每个有序映射都是树,如果你只需要不同的函数来比较键,使用sorted-map-by)。

;;define function for comparing keys
(defn compare-key-fn [key1 key2] (< key1 key2) )

;;define tree and add elements
(def my-tree
  (->                              ;;syntax sugar
    (sorted-map-by compare-key-fn) ;;this returns empty tree with given function to compare keys
    (assoc 100  "data for key = 100") ;;below we add elements to tree
    (assoc 2  "data for key = 2")
    (assoc 10 "data for key = 10")
    (assoc -2 "data for key = -1")))

;;accesing  elements by key
(prn "element for key 100 =" (my-tree 100))

;;"erasing" elements from tree - in reality, what we are really doing, is returning a new tree that contains all elements of the old one, except the element we've just erased.
(def my-new-tree
  (dissoc my-tree 2))

(prn my-new-tree) ;; to verify, that element 2 is "erased"
许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top