(define (vector:for-each proc V) (let ((longueur (vector-length V))) (let boucle ((index 0)) (if (not (= index longueur)) (begin (proc (vector-ref V index)) (boucle (+ index 1))))))) ; (define (assoc!:ajouter nom numero liste) (cons (cons nom numero) liste)) ; (define (vec!:ajouter nom numero vecteur) (let* ((N (vector-length vecteur)) (une-case (hash nom N)) (elem (vector-ref vecteur une-case))) (vector-set! vecteur une-case (assoc!:ajouter nom numero elem))))