exercies: binary search - clojure

gistfile1.clj

(defn bsrch [needle haystack]
  (loop [low (int 0) high (count haystack) mid (quot (count haystack) 2)]
    (if (= (haystack mid) needle)
       mid
    (if (= high low)
       -1
    (if (> needle (haystack mid))
       (recur (int (inc mid)) high (quot (+ mid high) 2))
       (recur low (int (dec mid)) (quot (+ low mid) 2))
    )))
  )
)