Clojure - Cerca dicotòmica amb Divideix i venç Y73217

Implementeu la cerca dicotòmica tot seguint l’esquema divideix i venç descrits als apunts de l’assignatura.

Recordeu afegir al vostre codi solució el següent:

(defn dIv
  [trivial directe dividir vèncer]
  (letfn [(dIv' [vct]
            (if (trivial vct)
              (directe vct)
              (let [[x1 x2] (dividir vct)
                    y1 (dIv' x1)
                    y2 (dIv' x2)]
                (vèncer vct [x1,x2] [y1,y2]))))]
    dIv'))

(def dicotomica (dIv trivial directe dividir vèncer))