Monte Carlo methods: Difference between revisions
m
→{{header|Haskell}}
Line 1,297:
<lang haskell>import Control.Monad (foldM, (>=>))
import System.Random (randomRIO)
Line 1,304 ⟶ 1,303:
monteCarloPi :: Int -> IO Double
monteCarloPi n =
(/ fromIntegral n) . (4 *) . fromIntegral
<
where
rnd = randomRIO (0, 1) :: IO Double
go a _ = rnd >>= (\rx -
f x y
| 1 > x ** 2 + y ** 2 = succ
| |||