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();;