Monte Carlo methods: Difference between revisions

Content added Content deleted
Line 1,307: Line 1,307:
where
where
rnd = randomRIO (0, 1) :: IO Double
rnd = randomRIO (0, 1) :: IO Double
go a x =
go a _ =
rnd >>= (\rx -> rnd >>= (pure . flip (f rx) a))
rnd >>= (\rx -> rnd >>= (pure . flip (f rx) a))
f x y
f x y