binary search (clojure)