Sleeping Beauty problem: Difference between revisions
Content added Content deleted
ReeceGoding (talk | contribs) (Added R.) |
(Add Red) |
||
Line 760: | Line 760: | ||
<pre>Wakenings over 1000000 experiments: 1500040 |
<pre>Wakenings over 1000000 experiments: 1500040 |
||
Results of experiment: Sleeping Beauty should estimate a credence of: 0.333298</pre> |
Results of experiment: Sleeping Beauty should estimate a credence of: 0.333298</pre> |
||
=={{header|Red}}== |
|||
<lang rebol>Red ["Sleeping Beauty problem"] |
|||
experiments: 1'000'000 |
|||
heads: awakenings: 0 |
|||
loop experiments [ |
|||
awakenings: awakenings + 1 |
|||
either 1 = random 2 [heads: heads + 1] [awakenings: awakenings + 1] |
|||
] |
|||
print ["Awakenings over" experiments "experiments:" awakenings] |
|||
print ["Probability of heads on waking:" heads / awakenings]</lang> |
|||
{{out}} |
|||
<pre> |
|||
Awakenings over 1000000 experiments: 1500063 |
|||
Probability of heads on waking: 0.3332773356852345 |
|||
</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |