22 lines
409 B
Text
22 lines
409 B
Text
|
_iterations = 1000000
|
||
|
|
|
||
|
|
local fn SleepingBeauty
|
||
|
|
NSUInteger i
|
||
|
|
CGFloat heads = 0, sleep = 0
|
||
|
|
|
||
|
|
for i = 1 to _iterations
|
||
|
|
NSInteger coinToss = int( rnd(2) )
|
||
|
|
sleep++
|
||
|
|
if coinToss = 1 then heads++ else sleep++
|
||
|
|
next
|
||
|
|
|
||
|
|
printf @"Awakenings over %lld sleep cycles = %.f", _iterations, sleep
|
||
|
|
printf @"Percent probability of heads on waking = %.4f%%", heads / sleep * 100
|
||
|
|
end fn
|
||
|
|
|
||
|
|
randomize
|
||
|
|
|
||
|
|
fn SleepingBeauty
|
||
|
|
|
||
|
|
HandleEvents
|