 GENERIC: null? ( set -- ? )
 GENERIC: cardinality ( set -- n )
 GENERIC: clear-set ( set -- )
+
+M: f members drop f ;
 
 M: f cardinality drop 0 ;
 

! Copyright (C) 2010 Daniel Ehrenberg
! See http://factorcode.org/license.txt for BSD license.
USING: assocs hashtables kernel math sequences vectors ;
FROM: assocs => change-at ;
IN: sets



<PRIVATE

: (pruned) ( elt set accum -- )
    2over in? [ 3drop ] [
        [ drop adjoin ] [ nip push-unsafe ] 3bi
    ] if ; inline

: pruned ( seq -- newseq )
