add-bits ( vec n b -- )

Vocabulary

project-euler.175.private

Inputs

vec	an object
n	an object
b	an object

Outputs

None

Definition

USING: kernel math sequences ;

IN: project-euler.175.private

: add-bits ( vec n b -- )
    over zero?
    [ 3drop ]
    [ pick length 1 bitand = [ over pop + ] when swap push ] if
    ;