primorial ( n -- m )

Vocabulary

project-euler.069.private

Inputs

n

an object

Outputs

m

an object

Definition

USING: combinators kernel math.primes project-euler.common
sequences ;

IN: project-euler.069.private

: primorial ( n -- m )
    {
        { [ dup 0 = ] [ drop V{ 1 } ] }
        { [ dup 1 = ] [ drop V{ 2 } ] }
        [ nth-prime primes-upto ]
    } cond product ;