Anonymous user
Unbias a random generator: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Added examples) |
|||
Line 698:
<lang Haskell>unbiased :: (MonadRandom m, Eq x) => m x -> m x
unbiased g = do x <- g
y <- g
if x /= y then return y else unbias g</lang>
Examples of use:
| |||