(define (tri-select-vecteur V) (let ((i 0) (L (vector-length V)) (posmini 0)) (let loop () (if (<= i (- L 1)) (begin (set! posmini (MinR V i)) (permute V i posmini) (set! i (+ i 1)) (loop)))) V))