decompose ( n -- seq )

Vocabulary

project-euler.265

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel math sequences ;

IN: project-euler.265

: decompose ( n -- seq )
    N <iota> [ drop [ 2/ ] [ 1 bitand ] bi ] map nip reverse ;