(module tri-rapide-vecteur (main lire-vecteur)) (define (lire-vecteur Args) (let* ((fichier (cadr Args)) (influx (let ((s (file->string fichier))) (open-input-string s ))) (V (read influx)) (longueurV (vector-length V))) (close-input-port influx) (multiple-value-bind (res rtime stime utime) (time (lambda () (tri-rapide V 0 (-fx longueurV 1)))) (print "real: " rtime " sys: " stime " user: " utime)) (do ((i 0 (+fx i 1))) ((=fx i longueurV)) (print (vector-ref V i))) )) (define (tri-rapide v imin imax) (if (fx (vector-ref v imax) x) (begin (set! imax (-fx imax 1)) (loop1)))) (let loop2 () (if (