;; fichier repertoire-dichot-recherche.scm ;; Recherche du numéro associé au nom leNom (define (Recherche leNom noms tels) (let ((tailleRepertoire (vector-length noms))) (let boucle ((milieu (quotient tailleRepertoire 2)) (inf 0) (sup (- tailleRepertoire 1))) (cond ((> inf sup) #f) ((string=? leNom (vector-ref noms milieu)) (vector-ref tels milieu)) ((string? leNom (vector-ref noms milieu)) (boucle (quotient (+ inf sup) 2) (+ milieu 1) sup)) ))))