multiset-erase ( obj multiset -- )

Vocabulary

multisets

Inputs

obj	an object
multiset	an object

Outputs

None

Definition

USING: accessors assocs kernel math sequences ;

IN: multisets

: multiset-erase ( obj multiset -- )
    [ hash>> delete-at* drop ] [
        nip
        [ avl>> [ delete-at ] curry each ]
        [ [ length ] dip [ swap - ] change-size drop ] 2bi
    ] 2bi ;