(define (tri-rapide v) (define (tri-aux v imin imax) (if (< imin imax) (let ((q (partition v imin imax))) (tri-aux v imin q) (tri-aux v (+ q 1) imax))) v) (tri-aux v 0 (- (vector-length v) 1)))