1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math math.combinatorics math.ranges sequences ;
6 : calculate-e-ratios ( n -- e )
7 iota [ factorial recip ] map-sum ;
9 : e-ratios-benchmark ( -- )
10 5 [ 300 calculate-e-ratios drop ] times ;
12 MAIN: e-ratios-benchmark