next-collatz ( n -- n )

Vocabulary

project-euler.014.private

Inputs

n

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: project-euler.014.private

: next-collatz ( n -- n ) dup even? [ 2 / ] [ 3 * 1 + ] if ;