1. (* Implémentation Union-Find *)
  2.  
  3. type unionfind = { pere:int array; rang:int array }
  4.  
  5. let afficheUF (uf : unionfind) =
  6. let n = Array.length uf.pere in
  7. Printf.printf "uf : ";
  8. for i = 0 to n-1 do
  9. Printf.printf "(%d->%d) " i uf.pere.(i)
  10. done;
  11. print_newline ();;
  12.