ranks ( a b disjoint-set -- r r )


Vocabulary
disjoint-sets.private

Inputs
aan object
ban object
disjoint-setan object


Outputs
ran object
ran object


Definition
USING: accessors assocs kernel ;

IN: disjoint-sets.private

: ranks ( a b disjoint-set -- r r ) [ ranks>> at ] curry bi@
; inline