1 USING: math math.combinatorics math.matrices math.matrices.extras
2 prettyprint sequences ;
3 IN: benchmark.matrix-exponential-scalar
5 :: e^m ( m iterations -- e^m )
12 iterations <iota> [| i |
13 m i m^n i factorial >float m/n m+
16 :: matrix-exponential-scalar-benchmark ( -- )
18 4 <identity-matrix> :> i4
24 MAIN: matrix-exponential-scalar-benchmark