euler061 ( -- n )


Vocabulary
project-euler.061

Inputs
None

Outputs
nan object


Definition
USING: arrays assocs kernel sequences ;

IN: project-euler.061

: euler061 ( -- n )
4-digit-polygons dup [ 8 = ] filter-keys
[ 1array 6 find-cycle ] with map-find drop sum-values ;