max-consecutive ( seq -- elt n )

Vocabulary

project-euler.027.private

Inputs

seq

an object

Outputs

elt	an object
n	an object

Definition

USING: kernel sequences ;

IN: project-euler.027.private

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