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

union find fixing

Browse Source
This commit is contained in:
Danny Yoo 2011-07-16 13:49:46 -04:00
parent 5ff41c40f3
commit df1ef5b693
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
union-find.rkt
View File

@ -31,7 +31,11 @@
;; Returns the node that's associated with this element. ;; Returns the node that's associated with this element.
(: lookup-node (forest Symbol -> node)) (: lookup-node (forest Symbol -> node))
(define (lookup-node a-forest an-elt) (define (lookup-node a-forest an-elt)
(hash-ref (forest-ht a-forest) an-elt)) (unless (hash-has-key? (forest-ht a-forest) an-elt)
(make-set a-forest an-elt))
(hash-ref (forest-ht a-forest)
an-elt))
;; make-set: forest X -> void ;; make-set: forest X -> void