bloom-filter-insert ( object bloom-filter: bloom-filter -- )
Bloom filters

Prev:	<bloom-filter> ( error-rate capacity -- bloom-filter )
Next:	bloom-filter-member? ( object bloom-filter: bloom-filter -- ? )

Vocabulary
bloom-filters

Inputs

object	an object
bloom-filter	a bloom-filter

Outputs
None

Word description
Records the item as a member of the filter.

Side effects
Modifies bloom-filter

Definition

USING: accessors bloom-filters.private kernel math
sequences.private typed ;

IN: bloom-filters

TYPED: bloom-filter-insert
    ( object bloom-filter: bloom-filter -- )
    [ increment-count ] [ relevant-indices ]
    [ bits>> [ [ t ] 2dip set-nth-unsafe ] curry ] tri compose
    each-integer ;