map-permutation-bits ( ... bit-count bits quot: ( ... n -- ... m ) -- ... seq )

Vocabulary

math.combinatorics.bits

Inputs

bit-count	an object
bits	an object
quot	a quotation with stack effect ( ... n -- ... m )

Outputs

seq

an object

Definition

USING: kernel math.combinatorics.bits.private sequences ;

IN: math.combinatorics.bits

: map-permutation-bits
    ( ... bit-count bits quot: ( ... n -- ... m ) -- ... seq )
    permutation-bits-quot [ swap ] compose produce nip ; inline