links ( polygons chain -- chains )

Vocabulary

project-euler.061

Inputs

polygons	an object
chain	an object

Outputs

chains

an object

Definition

USING: assocs kernel math sequences ;

IN: project-euler.061

: links ( polygons chain -- chains )
    [ keys '[ _ member? ] reject-keys ] keep
    tuck values last 100 mod '[ 100 /i _ = ] filter-values
    [ suffix ] with map ;