euler014 ( -- answer )


Vocabulary
project-euler.014

Inputs
None

Outputs
answeran object


Definition
USING: ranges sequences ;

IN: project-euler.014

: euler014 ( -- answer )
1000000 [1..b] { } [ collatz longer ] reduce first ;