iterate ( acc left seen -- )

Vocabulary

project-euler.265

Inputs

acc	an object
left	an object
seen	an object

Outputs

None

Definition

USING: generalizations kernel math sequences ;

IN: project-euler.265

: iterate ( acc left seen -- )
    over 0 =
    [ nip ?register ] [
        [ 1 - ] dip
        { 0 1 } [ add-bit [ iterate ] [ 3drop ] if ] 3 nwith
        each
    ] if ;