22 lines
433 B
Plaintext
22 lines
433 B
Plaintext
_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
|