1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math math.combinatorics 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