primorial ( n -- p# )

Vocabulary

math.factorials

Inputs

n

an object

Outputs

p#

an object

Definition

USING: kernel math math.primes sequences ;

IN: math.factorials

: primorial ( n -- p# )
    dup 0 > [ nprimes product ] [ drop 1 ] if ;