;; fichier repertoire-recherche.scm

;; Recherche du numéro associé au nom
(define (Recherche leNom noms tels)
   (let ((tailleRepertoire (vector-length noms)))
      (do ((i 0 (+ i 1)))
	  ((or (= i tailleRepertoire)
	       (string=? leNom (vector-ref noms i)))
	   (if (< i tailleRepertoire)
	       (vector-ref tels i)
	       "Inconnu")))))