Sleeping Beauty problem: Difference between revisions
Content added Content deleted
(bump to standard task) |
|||
Line 263: | Line 263: | ||
Results of experiment: Sleeping Beauty should estimate a credence of: 0.33374768428058316 |
Results of experiment: Sleeping Beauty should estimate a credence of: 0.33374768428058316 |
||
</pre> |
</pre> |
||
=={{header|Nim}}== |
|||
<lang Nim>import random |
|||
const N = 1_000_000 |
|||
type Side {.pure.} = enum Heads, Tails |
|||
const Sides = [Heads, Tails] |
|||
randomize() |
|||
var onHeads, wakenings = 0 |
|||
for _ in 1..N: |
|||
let side = sample(Sides) |
|||
inc wakenings |
|||
if side == Heads: |
|||
inc onHeads |
|||
else: |
|||
inc wakenings |
|||
echo "Wakenings over ", N, " experiments: ", wakenings |
|||
echo "Sleeping Beauty should estimate a credence of: ", onHeads / wakenings</lang> |
|||
{{out}} |
|||
<pre>Wakenings over 1000000 experiments: 1499971 |
|||
Sleeping Beauty should estimate a credence of: 0.3333591116094911</pre> |
|||
=={{header|Pascal}}== |
=={{header|Pascal}}== |
||
{{trans|Phix}} |
{{trans|Phix}} |