Sleeping Beauty problem: Difference between revisions
Content added Content deleted
No edit summary |
(J) |
||
Line 458: | Line 458: | ||
<pre>*Main> main |
<pre>*Main> main |
||
Ratio: 0.33339378051805013</pre> |
Ratio: 0.33339378051805013</pre> |
||
=={{header|J}}== |
|||
Simulation code: |
|||
<lang J>sb=: {{ |
|||
monday=. ?2 |
|||
if. -. monday do. |
|||
tuesday=. ?2 |
|||
<monday,tuesday |
|||
else. |
|||
<monday |
|||
end. |
|||
}}</lang> |
|||
Results:<lang J> sample=: sb"0 i.1e6 NB. simulate a million mondays |
|||
#sample NB. number of experiments |
|||
1000000 |
|||
#;sample NB. number of questions |
|||
1500433 |
|||
+/;sample NB. number of heads |
|||
749617 |
|||
(+/%#);sample NB. odds of heads at time of question |
|||
0.4996 |
|||
sample+&#;sample NB. total number of awakenings |
|||
2500433</lang> |
|||
It's probably worth noting here that the number of heads divided by the number of awakenings would be about 0.3 -- but Sleeping Beauty was not asked to guess whether the coin was heads on Wednesday. |
|||
=={{header|Julia}}== |
=={{header|Julia}}== |