(lispkit disjoint-set)
Library
(lispkit disjoint-set)
implements disjoint sets, a mutable union-find data structure that tracks a set of elements partitioned into disjoint subsets. Disjoint sets are based on hashtables and require the definition of an equality and a hash function.disjoint-set-type-tag

Symbol representing the
disjoint-set
type. The type-for
procedure of library (lispkit type)
returns this symbol for all disjoint set objects.(disjoint-set? obj)

Returns
#t
if obj is a disjoint set object; otherwise #f
is returned.(make-eq-disjoint-set)

Returns a new empty disjoint set using
eq
as equality and eq-hash
as hash function.(make-eqv-disjoint-set)

Returns a new empty disjoint set using
eqv
as equality and eqv-hash
as hash function.(make-disjoint-set comparator)
(make-disjoint-set hash eql)

Returns a new empty disjoint set using eql as equality and hash as hash function. Instead of providing two functions, a new disjoint set can also be created based on a comparator.
(disjoint-set-make dset x)

Adds a new singleton set x to dset if element x does not exist already in disjoint set dset.
(disjoint-set-find dset x)
(disjoint-set-find dset x default)

Looks up element x in dset and returns the set in which x is currently contained. Returns default if element x is not found. If default is not provided,
disjoint-set-find
uses #f
instead.(disjoint-set-union dset x y)

Unifies the sets containing x and y in disjoint set dset.
(disjoint-set-size dset)

Returns the number of sets in dset.
Last modified 11mo ago