Sleeping Beauty problem: Difference between revisions

=={{header|Factor}}==

{{works with|Factor|0.99 2021-02-05}}

<lang factor>USING: combinators.random io kernel math prettyprint ;

: sleeping ( n -- heads wakenings )

0 0 rot [ 1 + .5 [ [ 1 + ] dip ] [ 1 + ] ifp ] times ;

"Wakenings over 1,000,000 experiments: " write

1e6 sleeping dup . /f

"Sleeping Beauty should estimate a credence of: " write .</lang>

{{out}}

<pre>

Wakenings over 1,000,000 experiments: 1500127

Sleeping Beauty should estimate a credence of: 0.3332204540015612

</pre>