complete ( seq -- seq' )

Vocabulary

project-euler.265

Inputs

seq

an object

Outputs

seq'

an object

Definition

USING: math sequences ;

IN: project-euler.265

: complete ( seq -- seq' )
    unclip decompose append [ 1 bitand ] map ;