reverse-factorial ( m -- n )

Vocabulary

math.factorials

Inputs

m

an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: math.factorials

: reverse-factorial ( m -- n )
    1 1 [ 2over > ] [ 1 + [ * ] keep ] while [ = ] dip and ;