suzanne.soy/UnionFind
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/rinderknecht/UnionFind

Browse Source
This commit is contained in:
Christian Rinderknecht 2018-08-19 20:55:16 +02:00
commit 0f28b98f18
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Partition3.ml
View File

@ -47,7 +47,7 @@ module Make (Item: Partition.Item) =
let get_or_set item (p: partition) = let get_or_set item (p: partition) =
try seek item p, p with try seek item p, p with
Not_found -> let rec loop = {item; height=0; parent=loop} Not_found -> let rec loop = {item; height=0; parent=loop}
in loop, ItemMap.add item loop p in loop, ItemMap.add item loop p
let link src dst = src.parent <- dst let link src dst = src.parent <- dst