Реализация двоичного дерева поиска в 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)) 

Я пытался добавить случайное число в BST в РЕПЛ, линия так:

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

Но я получаю NullPointerException, но я не понимаю, почему я получая это исключение. Что-то не так с моим кодом?

Answer 1

Я подозреваю, что это происходит потому, что вы повторно используете «BST» в параметров функции, которая запутанным STRUCT-карту, если значение равно нулю ....

Попробуйте переименовать параметр функции к чему-то еще.