equate-all ( seq disjoint-set -- )

Vocabulary

disjoint-sets

Inputs

seq	an object
disjoint-set	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: disjoint-sets

: equate-all ( seq disjoint-set -- )
    over empty?
    [ 2drop ] [ [ unclip-slice ] dip equate-all-with ] if ;