Data commit

Task/Sleeping-Beauty-problem/FutureBasic/sleeping-beauty-problem.basic

@@ -0,0 +1,21 @@
+_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