hash-set-cursor

Vocabulary

cursors

Definition

USING: hash-sets math ;

IN: cursors

TUPLE: hash-set-cursor
    { hash-set hash-set read-only initial: HS{ } }
    { n fixnum read-only initial: 0 } ;

Methods

USING: accessors combinators.short-circuit cursors kernel ;

M: hash-set-cursor cursor-compatible?
    {
        [ [ hash-set-cursor? ] both? ]
        [ [ hash-set>> ] bi@ eq? ]
    } 2&& ; inline


USING: accessors cursors kernel sets ;

M: hash-set-cursor cursor-distance-hint
    nip hash-set>> cardinality ; inline


USING: accessors cursors cursors.private kernel
sequences.private ;

M: hash-set-cursor cursor-key-value-unsafe
    [ n>> dup ] [ hash-set>> array>> ] bi nth-unsafe ; inline


USING: accessors cursors kernel sequences ;

M: hash-set-cursor cursor-valid?
    [ n>> ] [ hash-set>> array>> ] bi bounds-check? ; inline


USING: accessors cursors kernel ;

M: hash-set-cursor cursor= [ n>> ] bi@ = ; inline


USING: accessors cursors cursors.private kernel math ;

M: hash-set-cursor inc-cursor
    [ hash-set>> dup array>> ] [ n>> 1 + ] bi
    (inc-hash-set-cursor) <hash-set-cursor> ; inline