primorial-upto ( limit -- m )

Vocabulary

project-euler.069.private

Inputs

limit

an object

Outputs

m

an object

Definition

USING: kernel math project-euler.common sequences ;

IN: project-euler.069.private

: primorial-upto ( limit -- m )
    1 swap [ [ dup primorial ] ] dip [ <= ] curry compose
    [ 1 + dup primorial ] produce nip penultimate ;