next ( lag -- n )


Vocabulary
project-euler.186

Inputs
lagan object


Outputs
nan object


Definition
USING: circular kernel math sequences ;

IN: project-euler.186

: next ( lag -- n )
[ [ first dup ] [ 31 swap nth ] bi + 1000000 rem ] keep
circular-push ;