multifactorial ( n k -- n!(k) )

Vocabulary

math.factorials

Inputs

n	an object
k	an object

Outputs

n!(k)

an object

Definition

USING: kernel math ;

IN: math.factorials

: multifactorial ( n k -- n!(k) )
    2dup >= [ dupd [ - ] keep multifactorial * ] [ 2drop 1 ] if
    ; inline recursive