multiset-clear ( multiset -- )

Vocabulary

multisets

Inputs

multiset

an object

Outputs

None

Definition

USING: accessors assocs kernel ;

IN: multisets

: multiset-clear ( multiset -- )
    [ hash>> clear-assoc ] [ avl>> f >>root 0 >>count drop ]
    [ 0 >>size drop ] tri ;