Monte Carlo methods: Difference between revisions
→{{header|Haskell}}: Applied Ormolu to older version, and replaced its 'foldl (+) 0' with sum
(→{{header|Haskell}}: Added a variant using foldM and dropping sqrt) |
(→{{header|Haskell}}: Applied Ormolu to older version, and replaced its 'foldl (+) 0' with sum) |
||
Line 1,272:
=={{header|Haskell}}==
<lang haskell>import
import
results <- replicateM throws one_trial
where
one_trial = do
rand_y <- randomRIO (-1, 1)
dist =
return (if dist < 1 then 1 else 0)</lang>
{{Out}}
<pre>Example:
| |||