Rosetta Code

Unbias a random generator: Difference between revisions

Page Discussion

Unbias a random generator (view source)

Revision as of 06:48, 11 November 2011

26 bytes removed ,  12 years ago
m
→‎{{header|OCaml}}
Line 586:
if Random.int n = 0 then 1 else 0
 
let rec unbiased n =
let rec aux()a = randN n in
letif a =<> randN n inthen a else unbiased n
if a <> randN n then a else aux()
in
aux()
 
let () =
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/173535"