Skip to content

Instantly share code, notes, and snippets.

@jackfoxy

jackfoxy/ForcedReveal.fs

Created November 13, 2012 00:33
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/4063048 to your computer and use it in GitHub Desktop.
Save jackfoxy/4063048 to your computer and use it in GitHub Desktop.
Download ZIP
forced door reveal for Monty Hall problem
Raw
ForcedReveal.fs
let forcedReveal doorWithPrize fstChoice =
match doorWithPrize with
|1 -> if fstChoice = 2 then 3
else 2
|2 -> if fstChoice = 1 then 3
else 1
|_ -> if fstChoice = 1 then 2
else 1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment