Sleeping Beauty problem: Difference between revisions

=={{header|Perl}}==

<lang perl>use strict;

use warnings;

sub sleeping_beauty {

my($trials) = @_;

my($gotheadsonwaking,$wakenings);

$wakenings++ and rand > .5 ? $gotheadsonwaking++ : $wakenings++ for 1..$trials;

$wakenings, $gotheadsonwaking/$wakenings

}

printf "Wakenings over $trials experiments: %d\nSleeping Beauty should estimate a credence of: %.4f\n", sleeping_beauty(1_000_000);</lang>

{{out}}

<pre>Wakenings over 1000000 experiments: 1499816

Sleeping Beauty should estimate a credence of: 0.333</pre>