Binary tree validator thingy

gistfile1.clj

(defn is-valid? 
	[node left-val right-val]
	(if (= node nil) 
		true
		(if 
			(and 
				(> (:key node) left-val)
				(<= (:key node) right-val)
				(is-valid? (:left node) left-val (:key node))
				(is-valid? (:right node) (:key node) right-val)
			)
			true
			false
			)
	))
	
(def badtree
	{:key 3 
	 :left {:key 2 :left {:key 1 :left nil :right nil} :right {:key 5 :left nil :right nil}} 
	 :right {:key 6 :left {:key 4 :left nil :right nil} :right {:key 7 :left nil :right nil}} }
)

(def goodtree
	{:key 4 
	 :left {:key 2 :left {:key 1 :left nil :right nil} :right {:key 3 :left nil :right nil}} 
	 :right {:key 6 :left {:key 5 :left nil :right nil} :right {:key 7 :left nil :right nil}} }
)

(is-valid? badtree 0 999)
(is-valid? goodtree 0 999)