add-bit ( seen bit -- seen' t/f )

Vocabulary

project-euler.265

Inputs

seen	an object
bit	an object

Outputs

seen'	an object
t/f	an object

Definition

USING: kernel math math.functions sequences ;

IN: project-euler.265

: add-bit ( seen bit -- seen' t/f )
    over last 2 * + 2 N ^ mod 2dup swap member?
    [ drop f ] [ suffix t ] if ;