;; fichier repertoire-hash-recherche.scm

;; Recherche du numéro associé au nom
(define (Recherche leNom leRepertoire)
   (let* ((tailleRepertoire (vector-length leRepertoire))
	  (i (hash leNom tailleRepertoire))
	  (resultat (assoc leNom (vector-ref leRepertoire i))))
      (if resultat
	  (cdr resultat)
	  "Inconnu")))