;; Ces programmes sont sous licence CeCILL-B V1. ;; fichier repertoire.scm (define (Repertoire fichier) (let* ((tailleRepertoire (/ (compter-lignes fichier) 2)) (noms (make-vector tailleRepertoire "")) (tels (make-vector tailleRepertoire ""))) (ConstruireRepertoire fichier tailleRepertoire noms tels) (print "Entrez le nom, f si fini") (do ((leNom "##" (symbol->string (read)))) ((string=? leNom "f")) (if (not (string=? leNom "##")) (begin (print leNom " : " (Recherche leNom noms tels)) (print "Entrez le nom, f si fini")) )) ))