Code source tri par "selection"
let tri_selection tableau=
let longueur=ref((vect_length tableau)-1) in
while (!longueur>1) do
let maxi=ref(0) in
for i=0 to (!longueur) do
if tableau.(!maxi)<tableau.(i) then maxi:=i;
done;
echanger tableau (!maxi) (!longueur);
longueur:=(!longueur)-1;
done;;
(* tri_selection : 'a vect -> unit = <fun> *)