?register ( acc seq -- )

Vocabulary

project-euler.265

Inputs

acc	an object
seq	an object

Outputs

None

Definition

USING: kernel math math.functions sequences sets ;

IN: project-euler.265

: ?register ( acc seq -- )
    complete rotate-bits dup [ 2 N ^ mod ] map all-unique?
    [ minimum swap push ] [ 2drop ] if ;