|
|
Line 56: |
Line 56: |
|
<pre>Wakings over 100000 repetitions = 150096 |
|
<pre>Wakings over 100000 repetitions = 150096 |
|
Percentage probability of heads on waking = 33.24805457840316 %</pre> |
|
Percentage probability of heads on waking = 33.24805457840316 %</pre> |
|
|
|
⚫ |
|
|
⚫ |
<lang cpp>#include <iostream> |
|
⚫ |
|
|
|
|
|
⚫ |
|
|
⚫ |
std::cout.imbue(std::locale("")); |
|
⚫ |
const int experiments = 1000000; |
|
⚫ |
|
|
⚫ |
std::default_random_engine engine(dev()); |
|
⚫ |
std::uniform_int_distribution<int> distribution(0, 1); |
|
⚫ |
int heads = 0, wakenings = 0; |
|
⚫ |
for (int i = 0; i < experiments; ++i) { |
|
⚫ |
|
|
⚫ |
switch (distribution(engine)) { |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
std::cout << "Wakenings over " << experiments |
|
⚫ |
<< " experiments: " << wakenings << '\n'; |
|
⚫ |
std::cout << "Sleeping Beauty should estimate a credence of: " |
|
⚫ |
<< double(heads) / wakenings << '\n'; |
|
⚫ |
|
|
|
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
Wakenings over 1,000,000 experiments: 1,500,090 |
|
⚫ |
Sleeping Beauty should estimate a credence of: 0.333253 |
|
⚫ |
|
|
|
|
|
|
|
=={{header|BASIC}}== |
|
=={{header|BASIC}}== |
Line 200: |
Line 166: |
|
</pre> |
|
</pre> |
|
|
|
|
|
⚫ |
|
|
⚫ |
<lang cpp>#include <iostream> |
|
⚫ |
|
|
|
|
|
⚫ |
|
|
⚫ |
std::cout.imbue(std::locale("")); |
|
⚫ |
const int experiments = 1000000; |
|
⚫ |
|
|
⚫ |
std::default_random_engine engine(dev()); |
|
⚫ |
std::uniform_int_distribution<int> distribution(0, 1); |
|
⚫ |
int heads = 0, wakenings = 0; |
|
⚫ |
for (int i = 0; i < experiments; ++i) { |
|
⚫ |
|
|
⚫ |
switch (distribution(engine)) { |
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
std::cout << "Wakenings over " << experiments |
|
⚫ |
<< " experiments: " << wakenings << '\n'; |
|
⚫ |
std::cout << "Sleeping Beauty should estimate a credence of: " |
|
⚫ |
<< double(heads) / wakenings << '\n'; |
|
⚫ |
|
|
|
|
|
⚫ |
|
|
⚫ |
|
|
⚫ |
Wakenings over 1,000,000 experiments: 1,500,090 |
|
⚫ |
Sleeping Beauty should estimate a credence of: 0.333253 |
|
⚫ |
|
|
|
|
|
|
=={{header|Dyalect}}== |
|
=={{header|Dyalect}}== |