(find-longest) ( best seq limit -- best )

Vocabulary

project-euler.050.private

Inputs

best	an object
seq	an object
limit	an object

Outputs

best

an object

Definition

USING: kernel math.order sequences ;

IN: project-euler.050.private

: (find-longest) ( best seq limit -- best )
    [ longest-prime max ] 2keep 2over continue?
    [ [ rest-slice ] dip (find-longest) ] [ 2drop ] if ;