Sleeping Beauty problem: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops) |
||
Line 346: | Line 346: | ||
} |
} |
||
my $trials = 1_000_000; |
|||
printf "Wakenings over $trials experiments: %d\nSleeping Beauty should estimate a credence of: %.4f\n", sleeping_beauty( |
printf "Wakenings over $trials experiments: %d\nSleeping Beauty should estimate a credence of: %.4f\n", sleeping_beauty($trials);</lang> |
||
{{out}} |
{{out}} |
||
<pre>Wakenings over 1000000 experiments: 1499816 |
<pre>Wakenings over 1000000 experiments: 1499816 |