D-factorial ( n -- D! )


Vocabulary
benchmark.e-decimals

Inputs
nan object


Outputs
D!an object


Definition
USING: decimals sequences ;

IN: benchmark.e-decimals

: D-factorial ( n -- D! )
<iota> DECIMAL: 1 [ 0 <decimal> DECIMAL: 1 D+ D* ] reduce ;
inline