(defn binary-search [coll value]
  (let [pred #(< % value)]
    (->> coll
         (map #(if (pred %) -1 1))
         (reduce (fn [acc x] (+ acc x)) 0)
         (filter #(not= % 0))
         first)))