46{
50
51 const std::string monte_carlo_e_program =
52 " var max_samples := 10^8; "
53 " var trials := 0; "
54 " "
55 " for (var i := 0; i < max_samples; i += 1) "
56 " { "
57 " var rand_sum := 0; "
58 " repeat "
59 " rand_sum += rnd_01; "
60 " trials += 1; "
61 " until (rand_sum > 1); "
62 " }; "
63 " "
64 " trials / max_samples; ";
65
67
68 symbol_table_t symbol_table;
69 symbol_table.add_function("rnd_01",rnd01);
70
71 expression_t expression;
72 expression.register_symbol_table(symbol_table);
73
74 parser_t parser;
75 parser.compile(monte_carlo_e_program,expression);
76
77 const T approximate_e = expression.value();
78
79 const T real_e = T(2.718281828459045235360287471352662);
80
81 printf("e ~ %20.17f\terror: %20.17f\n",
82 approximate_e,
83 std::abs(real_e - approximate_e));
84}