max-period ( seq -- elt n )

Vocabulary

project-euler.026.private

Inputs

seq

an object

Outputs

elt	an object
n	an object

Definition

USING: kernel project-euler.026 sequences ;

IN: project-euler.026.private

: max-period ( seq -- elt n )
    dup [ period-length ] map dup maximum over index
    [ swap nth ] curry bi@ ;