Sleeping Beauty problem: Difference between revisions

Content added Content deleted
(Added Easylang)
Line 414: Line 414:


local fn SleepingBeauty
local fn SleepingBeauty
NSUInteger i
NSUInteger i
CGFloat heads = 0, sleep = 0
CGFloat heads = 0, sleep = 0

for i = 1 to _iterations
for i = 1 to _iterations
NSInteger coinToss = int( rnd(2) )
NSInteger coinToss = int( rnd(2) )
sleep++
sleep++
if coinToss = 1 then heads++ else sleep++
if coinToss = 1 then heads++ else sleep++
next
next

printf @"Awakenings over %lld sleep cycles = %.f", _iterations, sleep
printf @"Awakenings over %lld sleep cycles = %.f", _iterations, sleep
printf @"Percent probability of heads on waking = %.4f%%", heads / sleep * 100
printf @"Percent probability of heads on waking = %.4f%%", heads / sleep * 100
end fn
end fn


Line 438: Line 438:
Percent probability of heads on waking = 33.3578%
Percent probability of heads on waking = 33.3578%
</pre>
</pre>



=={{header|Go}}==
=={{header|Go}}==