linked-set

Vocabulary

linked-sets

Definition

USING: dlists hashtables ;

IN: linked-sets

TUPLE: linked-set
    { assoc hashtable read-only initial: H{ } }
    { dlist dlist read-only initial: DL{ } } ;

Methods

USING: accessors assocs deques kernel linked-sets
linked-sets.private sets ;

M: linked-set adjoin
    [ assoc>> ] [ dlist>> ] bi
    [ 2over key? [ 3dup (delete-at) ] when nip push-back* ]
    curry [ set-at ] 2bi ;


USING: accessors assocs linked-sets sets ;

M: linked-set cardinality assoc>> assoc-size ;


USING: accessors assocs deques kernel linked-sets sets ;

M: linked-set clear-set
    [ assoc>> clear-assoc ] [ dlist>> clear-deque ] bi ;


USING: accessors kernel linked-sets ;

M: linked-set clone
    [ assoc>> clone ] [ dlist>> clone ] bi linked-set boa ;


USING: accessors kernel linked-sets linked-sets.private sets ;

M: linked-set delete [ assoc>> ] [ dlist>> ] bi (delete-at) ;


USING: accessors kernel linked-sets ;

M: linked-set equal?
    over linked-set? [ [ dlist>> ] bi@ = ] [ 2drop f ] if ;


USING: accessors assocs linked-sets sets ;

M: linked-set in? assoc>> key? ;


USING: accessors dlists linked-sets sets ;

M: linked-set members dlist>> dlist>sequence ;


USING: kernel linked-sets sets ;

M: linked-set set-like
    drop dup linked-set? [ >linked-set ] unless ;