(* Implémentation Union-Find *)

type unionfind = { pere:int array; rang:int array }

let afficheUF (uf : unionfind) =
  let n = Array.length uf.pere in
  Printf.printf "uf : ";
  for i = 0 to n-1 do
    Printf.printf "(%d->%d) " i uf.pere.(i)
  done;
  print_newline ();;