cycle? ( chain -- ? )


Vocabulary
project-euler.061

Inputs
chainan object


Outputs
?an object


Definition
USING: assocs grouping kernel math sequences ;

IN: project-euler.061

: cycle? ( chain -- ? )
2 circular-clump
[ values first2 [ 100 mod ] [ 100 /i ] bi* = ] all? ;