Revision as of 23:10, 8 May 2021 (view source) Wherrera (talk \| contribs) mNo edit summary ← Older edit		Revision as of 01:14, 9 May 2021 (view source) Chunes (talk \| contribs) (Add Factor) Newer edit →
Line 31: =={{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> =={{header\|Julia}}==

Sleeping Beauty problem (view source)