! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: decimals kernel locals math math.combinatorics math.ranges
sequences ;
IN: benchmark.e-decimals

:: calculate-e-decimals ( n -- e )
    n [1,b] [ factorial 0 <decimal> D: 1 swap n D/ ] map
    D: 1 [ D+ ] reduce ;

: calculate-e-decimals-benchmark ( -- )
    5 [ 800 calculate-e-decimals drop ] times ;

MAIN: calculate-e-decimals-benchmark