filter-permutation-bits ( ... bit-count bits quot: ( ... n -- ... ? ) -- ... seq ) (original) (raw)

filter-permutation-bits ( ... bit-count bits quot: ( ... n -- ... ? ) -- ... seq )

Vocabulary
math.combinatorics.bits

Inputs

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

Outputs

seq an object

Definition

USING: kernel sequences ;

IN: math.combinatorics.bits

: filter-permutation-bits
( ... bit-count bits quot: ( ... n -- ... ? ) -- ... seq )
selector [ each-permutation-bits ] dip ; inline