euler014a ( -- answer )

Vocabulary

project-euler.014

Inputs

None

Outputs

answer

an object

Definition

USING: kernel project-euler.014.private ranges sequences ;

IN: project-euler.014

: euler014a ( -- answer )
    500000 1000000 [a..b]
    { 1 }
    [ dup worth-calculating? [ collatz longer ] [ drop ] if ]
    reduce first ;