Anonymous user
Sleeping Beauty problem: Difference between revisions
→{{header|Nim}}
(bump to standard task) |
|||
Line 263:
Results of experiment: Sleeping Beauty should estimate a credence of: 0.33374768428058316
</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}}==
{{trans|Phix}}
|