1 USING: tools.test bit-vectors vectors sequences kernel math ;
4 [ 0 ] [ 123 <bit-vector> length ] unit-test
7 1234 swap [ [ even? ] dip push ] curry each-integer ;
10 3 <bit-vector> dup do-it
11 3 <vector> dup do-it sequence=
14 [ t ] [ ?V{ } bit-vector? ] unit-test