add-count ( p a disjoint-set -- )

Vocabulary

disjoint-sets.private

Inputs

p	an object
a	an object
disjoint-set	an object

Outputs

None

Definition

USING: accessors assocs kernel math ;

IN: disjoint-sets.private

: add-count ( p a disjoint-set -- )
    counts>> [ at [ + ] curry ] [ swap change-at ] bi ; inline