Skip to content

Instantly share code, notes, and snippets.

@jackfoxy

jackfoxy/RandomReveal.fs

Created November 13, 2012 00:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jackfoxy/4063046 to your computer and use it in GitHub Desktop.
Save jackfoxy/4063046 to your computer and use it in GitHub Desktop.
Download ZIP
random reveal of a door for Monty Hall problem
Raw
RandomReveal.fs
let rndReveal doorWithPrize =
let rnd = seedRnd.Next(1,3)
match doorWithPrize with
|1 -> (rnd + 1)
|2 -> if rnd = 1 then 1
else 3
|_ -> rnd
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment