BST

(ns bst)

(def blank-bst {:left nil
                 :right nil
                 :value nil})

(defn make-bst [val]
  (assoc blank-bst :value val))

(defn add-to-bst [bst val]
  (
  (if (nil? bst)
    (make-bst val)
    (if (val < (:value bst))
     (assoc bst :left (add-to-bst (:left bst) val))
     (assoc bst :right (add-to-bst (:right bst) val))))))