bit-set-map ( seq1 seq2 quot -- seq )

Vocabulary

bit-sets.private

Inputs

seq1	an object
seq2	an object
quot	an object

Outputs

seq

an object

Definition

USING: accessors bit-arrays kernel sequences ;

IN: bit-sets.private

: bit-set-map ( seq1 seq2 quot -- seq )
    [ drop 2length [ assert= ] keep ]
    [ [ [ underlying>> ] bi@ ] dip 2map ] 3bi bit-array boa ;
    inline