solve ( n -- answer )

Vocabulary

project-euler.050.private

Inputs

n

an object

Outputs

answer

an object

Definition

USING: kernel math.primes sequences ;

IN: project-euler.050.private

: solve ( n -- answer )
    [ primes-upto ] keep find-longest second ;