;; fichier repertoire-hash-chargement.scm (define (ConstruireRepertoire fichier leRepertoire) (let ((tailleRepertoire (vector-length leRepertoire)) (flux-entree (open-input-file fichier))) (if (not (eof-object? (peek-char flux-entree))) (let boucle ((nom (read-line flux-entree)) (tel (read-line flux-entree))) (let ((i (hash nom tailleRepertoire))) (vector-set! leRepertoire i (cons (cons nom tel) (vector-ref leRepertoire i))) (if (eof-object? (peek-char flux-entree)) (close-input-port flux-entree) (boucle (read-line flux-entree) (read-line flux-entree))))))))