binsearch.lisp

(defun bin-search (obj vect)
  (bin-search-rec obj vect 0 (1- (length vect))))

(defun bin-search-rec (obj vec start end) 
  (let* ((range (- end start)) 
	 (mid (+ start (round (/ range 2)))))
    (cond ((eq (aref vec mid) obj)  (format t "l'hem trobat a la posicio blabla ~A" mid))
	  ((zerop range) nil)
	  ((< (aref vec mid) obj) (bin-search-rec obj vec (1+ mid) end))
	  ((> (aref vec mid) obj) (bin-search-rec obj vec start (1- mid))))))