1 USING: bit-sets tools.test sets kernel bit-arrays ;
4 [ T{ bit-set f ?{ t f t f t f } } ] [
5 T{ bit-set f ?{ t f f f t f } }
6 T{ bit-set f ?{ f f t f t f } } union
9 [ T{ bit-set f ?{ f f f f t f } } ] [
10 T{ bit-set f ?{ t f f f t f } }
11 T{ bit-set f ?{ f f t f t f } } intersect
14 [ T{ bit-set f ?{ t f t f f f } } ] [
15 T{ bit-set f ?{ t t t f f f } }
16 T{ bit-set f ?{ f t f f t t } } diff
20 T{ bit-set f ?{ t t t f f f } }
21 T{ bit-set f ?{ f t f f t t } } subset?
25 T{ bit-set f ?{ t t t f f f } }
26 T{ bit-set f ?{ f t f f f f } } subset?
31 T{ bit-set f ?{ f t f f f f } } subset?
35 T{ bit-set f ?{ f t f f f f } }
36 T{ bit-set f ?{ t t t f f f } } subset?
41 T{ bit-set f ?{ t t t f f f } } subset?
44 [ V{ 0 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } members ] unit-test
47 { 1 2 } 5 <bit-set> set-like
53 [ V{ 0 1 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ 1 swap adjoin ] keep members ] unit-test
54 [ T{ bit-set f ?{ t f t f f t } } clone [ 9 swap adjoin ] keep members ] must-fail
55 [ T{ bit-set f ?{ t f t f f t } } clone [ "foo" swap adjoin ] keep members ] must-fail
57 [ V{ 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ 0 swap delete ] keep members ] unit-test
58 [ V{ 0 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ 1 swap delete ] keep members ] unit-test
59 [ V{ 0 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ 9 swap delete ] keep members ] unit-test
60 [ V{ 0 2 5 } ] [ T{ bit-set f ?{ t f t f f t } } clone [ "foo" swap delete ] keep members ] unit-test
62 [ T{ bit-set f ?{ f } } T{ bit-set f ?{ t } } ]
63 [ 1 <bit-set> dup clone 0 over adjoin ] unit-test