Sleeping Beauty problem: Difference between revisions
Added Arturo implementation
(Added Quackery.) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 31:
=={{header|Arturo}}==
<lang rebol>sleepingBeauty: function [reps][
wakings: 0
heads: 0
do.times: reps [
coin: random 0 1
wakings: wakings + 1
if? coin = 0 -> heads: heads + 1
else -> wakings: wakings + 1
]
print ["Wakings over" reps "repetitions =" wakings]
return 100.0 * heads//wakings
]
pc: sleepingBeauty 100000
print ["Percentage probability of heads on waking =" pc "%"]</lang>
{{out}}
<pre>Wakings over 100000 repetitions = 150096
Percentage probability of heads on waking = 33.24805457840316 %</pre>
=={{header|C++}}==
Line 65 ⟶ 88:
Sleeping Beauty should estimate a credence of: 0.333253
</pre>
=={{header|BASIC}}==
| |||