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

Indentation

Browse Source
This commit is contained in:
Christian Rinderknecht 2018-08-19 18:24:01 +02:00 committed by GitHub
parent 24f4693595
commit a8d962dd88
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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) =
try seek item p, p with
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