在 clojure 中实现二叉搜索树

Question

我正在尝试熟悉 Clojure，因此我开始实现一些基本算法和数据结构。我目前在实现二叉搜索树时遇到问题。这是我的代码：

(defstruct bst :left :right :key)

(defn add-bst [n bst-t]
  (cond
    (nil? bst-t) (struct-map bst :left nil :right nil :key n)
    (< n (:key bst-t))  (struct-map bst :left (add-bst n (:left bst-t))
                                :right (:right bst-t) :key (:key bst-t))
    (> n (:key bst-t))  (struct-map bst :left (:left bst-t)
                                :right (add-bst n (:right bst-t)) :key (:key bst-t))
    true bst-t))

我试图将随机数添加到 REPL 中的 BST 中，如下所示：

(exercise.new-ns/add-bst 5 nil)

但我收到了NullPointerException，但我不明白为什么会收到此异常。我的代码有问题吗？

Answer 1

我怀疑这是因为您在函数参数中重复使用“bst”，当值为 nil 时，这会混淆 struct-map....

尝试将函数参数重命名为其他名称。