fast-chain-ending ( seq n -- m )

Vocabulary

project-euler.092.private

Inputs

seq	an object
n	an object

Outputs

m

an object

Definition

USING: kernel math sequences ;

IN: project-euler.092.private

: fast-chain-ending ( seq n -- m )
    dup 567 > [ next-link ] when 1 - swap nth ;