(bitfield) ( bitspec -- quot )

Vocabulary

math.bitwise.private

Inputs

bitspec

an object

Outputs

quot

an object

Definition

USING: kernel math sequences ;

IN: math.bitwise.private

: (bitfield) ( bitspec -- quot )
    [ [ 0 ] ] [
        [ (bitfield-quot) ] [ [ dip bitor ] curry compose ]
        map-reduce
    ] if-empty ;