hyper-factorial ( n -- m )

Vocabulary

math.factorials

Inputs

n

an object

Outputs

m

an object

Definition

USING: kernel math math.functions ranges sequences ;

IN: math.factorials

: hyper-factorial ( n -- m )
    dup 1 > [ [1..b] [ dup ^ ] [ * ] map-reduce ] [ drop 1 ] if
    ;