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