collatz ( n -- seq )

Vocabulary

project-euler.014

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel make math project-euler.014.private ;

IN: project-euler.014

: collatz ( n -- seq )
    [ [ dup 1 > ] [ dup , next-collatz ] while , ] { } make ;