hailstone ( n -- seq )

Vocabulary

rosetta-code.hailstone-sequence

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel math sequences vectors ;

IN: rosetta-code.hailstone-sequence

: hailstone ( n -- seq )
    [ 1vector ] keep
    [ dup 1 number= ]
    [ dup even? [ 2 / ] [ 3 * 1 + ] if 2dup swap push ] until
    drop ;