Monte Carlo methods: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Applied Ormolu to older version, and replaced its 'foldl (+) 0' with sum) |
|||
Line 1,300:
monteCarloPi :: Int -> IO Double
monteCarloPi n =
where
rnd = randomRIO (0, 1) :: IO Double
Line 1,308:
| 1 > x ** 2 + y ** 2 = succ
| otherwise = id
go a
main :: IO ()
| |||