chain-ending ( n -- m )

Vocabulary

project-euler.092.private

Inputs

n

an object

Outputs

m

an object

Definition

USING: kernel ;

IN: project-euler.092.private

: chain-ending ( n -- m )
    dup [ 1 = ] [ 89 = ] bi or [ next-link chain-ending ] unless
    ;