Code source "echanger"
let echanger tableau i j=
let memoire=tableau.(i) in
tableau.(i)<-tableau.(j);
tableau.(j)<-memoire;;
(* echanger : 'a vect -> int -> int -> unit = <fun> *)
(* fonction qui permet de tester la fonction "echanger" *)
let test()=
let tableau=[|1;4;3;2;5|] in
print_string("Tableau avant premutation");
print_newline();
for i=0 to 4 do
print_int (tableau.(i));
done;
echanger tableau 1 3;
print_newline();
print_string("Tableau aprés premutation");
print_newline();
for i=0 to 4 do
print_int (tableau.(i));
done;;
test();;