Sleeping Beauty problem: Difference between revisions

Content added Content deleted

Inline

@@ Line 312: / Line 312: @@
 data Toss = Heads | Tails deriving Show
+anExperiment toss =
-sleepingBeautyExperiment = foldMap anExperiment
+  moreWakenings <>
+  case toss of
+    Heads -> headsOnWaking
+    Tails -> moreWakenings
   where
-    anExperiment toss = moreWakenings <>
-                        case toss of
-                          Heads -> headsOnWaking
-                          Tails -> moreWakenings
     moreWakenings = (1,0)
     headsOnWaking = (0,1)
@@ Line 323: / Line 323: @@
 main = do
   tosses <- map (bool Heads Tails) <$> replicateM 1000000 randomIO
-  let (Sum w, Sum h) = sleepingBeautyExperiment tosses
+  let (Sum w, Sum h) = foldMap anExperiment tosses
   let ratio = fromIntegral h / fromIntegral w
   putStrLn $ "Ratio: " ++ show ratio</lang>