51 const std::string monte_carlo_pi_program =
52 " var max_samples := 5 * 10^7; "
55 " for (var i := 0; i < max_samples; i += 1) "
57 " if ((rnd_01^2 + rnd_01^2) <= 1) "
61 " (4 * count) / max_samples; ";
65 symbol_table_t symbol_table;
66 symbol_table.add_function(
"rnd_01",rnd01);
68 expression_t expression;
69 expression.register_symbol_table(symbol_table);
72 parser.compile(monte_carlo_pi_program,expression);
74 const T approximate_pi = expression.value();
76 const T real_pi = T(3.141592653589793238462643383279502);
78 printf(
"pi ~ %20.17f\terror: %20.17f\n",
80 std::abs(real_pi - approximate_pi));