Data commit

Task/Sleeping-Beauty-problem/Quackery/sleeping-beauty-problem.quackery

@@ -0,0 +1,20 @@
+  [ $ "bigrat.qky" loadfile ] now!
+
+  [ say "Number of trials:  "
+    dup echo cr
+    0 ( heads count )
+    0 ( sleeps count )
+    rot times
+      [ 1+
+        2 random if
+          [ 1+ dip 1+ ] ]
+    say "Data: heads count: "
+    over echo cr
+    say "     sleeps count: "
+    dup echo cr
+    say "Credence of heads: "
+    2dup 20 point$ echo$ cr
+    say " or approximately: "
+    10 round vulgar$ echo$ cr ] is trials ( n --> n/d )
+
+    1000000 trials