multiset-count ( multiset obj -- n )

Vocabulary

multisets

Inputs

multiset	an object
obj	an object

Outputs

n

an object

Definition

USING: accessors assocs kernel sequences ;

IN: multisets

: multiset-count ( multiset obj -- n )
    swap hash>> at* [ length ] [ drop 0 ] if ; inline