add-atoms ( seq disjoint-set -- )

Vocabulary

disjoint-sets

Inputs

seq	an object
disjoint-set	an object

Outputs

None

Definition

USING: sequences ;

IN: disjoint-sets

: add-atoms ( seq disjoint-set -- ) '[ _ add-atom ] each ;