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