links ( polygons chain -- chains )


Vocabulary
project-euler.061

Inputs
polygonsan object
chainan object


Outputs
chainsan object


Definition
USING: assocs kernel math sequences ;

IN: project-euler.061

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