Skip to content

Instantly share code, notes, and snippets.

@jackfoxy

jackfoxy/simpleForceReveal.fs

Created November 14, 2012 23:30
Show Gist options
  • Save jackfoxy/4075599 to your computer and use it in GitHub Desktop.
Save jackfoxy/4075599 to your computer and use it in GitHub Desktop.
Download ZIP
simplified forced door reveal for let's make a deal
Raw
simpleForceReveal.fs
let forcedReveal doorWithPrize fstChoice =
match (doorWithPrize + fstChoice) with
|3 -> 3
|4 -> 2
|_ -> 1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment