factorials ( n -- seq )

Vocabulary

math.factorials

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel math ranges sequences ;

IN: math.factorials

: factorials ( n -- seq )
    1 swap [0..b] [ dup 1 > [ * ] [ drop ] if dup ] map nip ;