Sleeping Beauty problem: Difference between revisions
Added Wren
(Added C++ solution) |
(Added Wren) |
||
Line 161:
Wakenings over 1000000 experiments: 1499765
Results of experiment: Sleeping Beauty should estimate a credence of: 0.333542254953276
</pre>
=={{header|Wren}}==
{{libheader|Wren-fmt}}
<lang ecmascript>import "random" for Random
import "/fmt" for Fmt
var rand = Random.new()
var sleepingBeauty = Fn.new { |reps|
var wakings = 0
var heads = 0
for (i in 0...reps) {
var coin = rand.int(2) // heads = 0, tails = 1 say
wakings = wakings + 1
if (coin == 0) {
heads = heads + 1
} else {
wakings = wakings + 1
}
}
Fmt.print("Wakings over $,d repetitions = $,d", reps, wakings)
return heads/wakings * 100
}
var pc = sleepingBeauty.call(1e6)
Fmt.print("Percentage probability of heads on waking = $f\%", pc)</lang>
{{out}}
Sample run:
<pre>
Wakings over 1,000,000 repetitions = 1,500,321
Percentage probability of heads on waking = 33.304806%
</pre>
|